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ABSTRACT 


As part of developing the Execution Support System of Computer-Aided Prototyping 
System (CAPS), there is a need to translate and schedule prototypes of hard real-time 
systems whose specifications are defined in a hierarchical structure by using the 
Prototyping System Description Language (PSDL). We present a design and 
implementation of a PSDL expander in this thesis. The expander translates a PSDL 
prototype with an arbitrarily deep hierarchical structure into an equivalent two-level form 
that can be processed by the current implementations of the other CAPS tools. The design 
of the expander also provides for inheritance of timing constraints and static consistency 
checking. 

To establish a convenient representation of PSDL specifications, we define an 
Abstract Data Type (ADT) that provides an Ada representation of PSDL specification. The 
main idea behind the PSDL ADT is forming an abstract representation of PSDL to support 
software tools for analyzing, constructing, and translating PSDL programs. The PSDL 
ADT is built by using other common abstract data types, i.e. maps, sets, sequences, graphs, 
and stacks. The construction process of ADT itself is done by an LALR(J1) parser, generated 


in Ada using the tools AYACC and AFLEX, a parser generator and a lexical analyzer. 
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THESIS DISCLAIMER 


The reader is cautioned that computer programs developed in this research may not 
have been tested for all cases of interest. While every effort has been made within the time 
available to ensure that the programs are free of computational and logic errors, they 
cannot be considered validated. Any application of these programs without additional 


verification is at the risk of the user. 
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I. INTRODUCTION 


Conceptual simplicity, tight coupling of tools, and effective support of host-target software 


development will characterize advanced Ada’ programming environments. The demand for 
large, high quality systems has increased to the point where a jump in software technology is 
needed. Computer aided, rapid prototyping via specification and reusable components is one of 
the most promising solutions to this approach. A working model of such an environment is the 
Computer-Aided Prototyping System (CAPS), which supports rapid prototyping based on 
abstractions and reusable software components [Ref. 1]. CAPS has been built to help software 
engineers rapidly construct software prototypes of proposed software systems. It provides a 
methodology for constructing complex hard real-time prototypes from a data-flow graph of 
inter-task communications specified through a Prototyping System Description Language 


(PSDL). 


As part of developing the Execution Support System of the Computer-Aided 
Prototyping System, there is a need to translate and schedule prototypes of hard real-time 
systems whose specifications are defined in a hierarchical structure by using Prototyping 
Description Language (PSDL). We present a design and implementation of a PSDL 
expander in this thesis. The expander translates a PSDL prototype with an arbitrarily 
depth hierarchical structure into an equivalent two-level form that can be processed by the 
current implementations of the other CAPS tools. The design of the expander also provides 


for inheritance of timing constraints and static consistency checking. 


A. STATEMENT OF THE PROBLEM 


PSDL is a partially-graphical language for specification and design of real-time systems. 
A PSDL prototype consists of a hierarchically structured collection of definitions for operators 


and types. Luqi et al. [Ref. 2] mention one of the requirements of the design of PSDL as: 


“ADA is a registered trademark of the US Government (Ada Joint Program Office) 


“PSDL should support hierarchically structured prototypes, to simplify prototyping 
of large and complex systems. The PSDL descriptions at all levels of the designed 
prototype should be uniform.” 


The current implementation of Execution Support System: within CAPS is limited to 
hierarchically structured PSDL specifications with, at most, two levels. There is a need for an 
expander that will expand hierarchical PSDL specifications with arbitrary depth into a two 
level specification. 

Timing constraints are an essential part of specifying real-time systems [Ref 2]. In PSDL, 
timing constraints impose some constraints between the various levels of a hierarchical 
specification. The current implementation of CAPS does not guarantee that these constraints 
are met, and there is a need for consistency checking to pinpoint possible inconsistencies in the 
timing constraints between various levels. This thesis presents a partial design for such a 


consistency checker. 


B. SCOPE 


The design and implementation of an expander that will expand the hierarchical PSDL 
specifications with arbitrary depth into a two-level specification is the focus of this thesis. 
The expander will also check the inconsistencies in the real-time constraints between the 


various levels of hierarchically structured PSDL specification during the expandion process. 


C. RESEARCH APPROACH 


To establish a convenient representation of PSDL specifications, we define an 
Abstract Data Type (ADT) that provides an Ada representation of PSDL specification. The 
main idea behind the PSDL ADT is forming an abstract representation of PSDL to support 
software tools for analyzing, constructing, and translating PSDL programs. The PSDL 
ADT is built by using other common abstract data types, i.e. maps, sets, sequences, graphs, 
and stacks. The construction process of ADT itself is done by an LALR()! parser, generated 
in Ada using the tools AYACC and AFLEX, a parser generator and a lexical analyzer. These 





‘ LALR (Look Ahead Left Recursive) parser is one of the commonly used parsers. 


tools have been developed at University of California Irvine as part of the Arcadia Project [Ref. 
3, 4]. 

By processing the generated PSDL ADT for an input PSDL program, we transform the 
hierarchical structure into a two level specification, which we refer to as the expanded 
specification. The resulting expanded PSDL program is written into a new file to be processed 
by the tools in the Execution Support System. 

During the expansion process of PSDL program, consistency of the timing constraints 


between various levels should also be checked and error messages produced as appropriate. 


D. ORGANIZATION 


Chapter II. provides a bref background on traditional software development 
methodology, development of real-time systems, and rapid prototyping methodology. It also 
gives an overview of the CAPS environment, its specification language PSDL, and the tools 
within CAPS. Chapter III. presents the design, and Chapter IV. presents implementation of 
the PSDL ADT and expander. Chapter V. provides the conclusions and recommendations for 


further research to enhance the functionality of the current design. 


Il. BACKGROUND 


A. SOFTWARE DEVELOPMENT 


The United States Department of Defense (DoD) is currently the world’s largest user of 
computers. Each year billions of dollars are allocated for the development and maintenance of 
progressively more complex weapons and communications systems. These systems 
increasingly rely on information processing, utilizing embedded computer systems. These 
systems are often characterized by time periods or deadlines within which some event must 
occur. These are known as “hard real-time constraints”. Satellite control systems, missile 
guidance systems and communications networks are examples of embedded systems with hard 
real-time constraints. Correctness and reliability of these software systems is critical. Software 
development of these systems is an immense task with increasingly high costs and potential 


for mis-development [Ref. 5]. 


Over the past twenty years, the technological advances in computer hardware technology 
have reduced the hardware costs of a total system from 85 percent to about 15 percent. In the 
early 1970s, studies showed that computer software alone comprised approximately 46 percent 
of the estimated total DoD computer costs. Of this cost, 56 percent was devoted specifically to 
embedded systems. In spite of the tremendous costs, most large software systems were 
characterized as not providing the functionality that was desired, took too long to build, cost 


too much time or space to use, and could not evolve to meet the user’s changing needs [Ref 5]. 


Software engineering evolved in response to the need to design, implement, test, install 
and maintain more efficiently and correctly larger and more complex software systems. The 
term software engineering was coined in 1967 by a NATO study group, and endorsed by the 
1968 NATO Software Engineering Conference [Ref. 6]. The conference concluded that software 
engineering should use the philosophies and paradigms of traditional engineering disciplines. 
Numerous methodologies have been introduced to support software engineering. The major 


approaches which underlie these different methodologies are the waterfall model [Ref. 7] of 


development with its variants such as the spiral model [Ref. 8], and the prototyping [Ref. 9] 


method of development. 
1. The Classical Project Life Cycle: Waterfall Model 


The waterfall model describes a sequential approach to software development as 
shown in Figure 2.1. The requirements are completely determined before the system is 
designed, implemented and tested. The cost of systems developed using this model is very high. 
Required modifications which are realized late in the development of a system, such as during 
the testing phase, have a much greater impact on the cost of the system than they would have 
if they had been determined during the requirements analysis stage of the development. 
Requirements analysis may be considered the most critical stage of software development since 


this is when the system is defined [Ref 19]. 
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Figure 2.1 The Classic Life Cycle (Waterfall Model) 


Requirements are often incompletely or erroneously specified due to the often vast 
difference in the technical backgrounds of the user and the analyst. It is often the case that the 


user understands his application area but does not have the technical background to 


communicate successfully his needs to the analyst, while the analyst is not familiar enough 
with the application to detect a misunderstanding between himself and the user. The 
successful development of a software system is strictly dependent upon this process. The 
analyst must understand the needs and desires of the user and the performance constraints of 
the intended software system in order to specify a complete and correct software system. 
Requirements specifications are still most widely written using the English language, which is 
an ambiguous and non-specific mode of communication. 

Another difficulty of the classical life cycle is that communication between a software 
development team and the customer or the system’s users is weak. Most of the time the 
customer does not what he/she wants. In that case it is hard to determine the exact 
requirements, since the software development is also unfamiliar with the problem domain of 
the system. Formal specification languages are used to formalize the customer needs to a 
certain extent. Another disadvantage of the classical project life cycle is that a working model 
of the software system is not available until late in the project time span. This may cause two 
things: (1) A major bug undetected until the working program is reviewed can be disastrous 
(Ref. 11]. (2) The customer will not a have an idea of what the system will look like until it is 


complete. 
2. Prototyping Life Cycle 


Large real-time systems and systems which have hard real-time constraints are not 
well supported by traditional software development methods because the designer of this type 
of system would not know if the system can be built with the timing and control constraints 
required until much time and effort has been spent on the implementation. A hard real-time 
constraint is a bound on the response time of a process which must be satisfied under all 
operating conditions. 

To solve the problems raised in requirements analysis for large, parallel, distributed, 
real-time, or knowledge-based systems, current research suggests a revised software 
development life cycle based on rapid prototyping [Ref. 11, Ref. 13]. As a software 
methodology, rapid prototyping provides the user with increasingly refined systems to test and 


the designer with ever better user feedback between each refinement. The result is more user 


involvement and ownership throughout the development/specification process, and 
consequently better engineered software [Ref. 14]. 

The prototyping method shown in Figure 2.2 has recently become popular. “It is a 
method for extracting, presenting, and refining a users needs by building a working model of 
the ultimate system - quickly and in context” (Ref. 15]. This approach captures an initial set of 
needs and implements quickly those needs with the stated intent of iteratively expanding and 
refining them as the users and designer’s understanding of the system grows. The prototype 
is only to be used to model the system’s requirements; it is not to be used as an operational 


system [Ref. 16]. 
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Figure 2.2 Prototyping Life Cycle 


To manually construct the prototype still takes too much time and can introduce 
many errors. Also, it may not accurately reflect the timing constraints placed on the system. 


What is needed is an automated way to rapidly prototype a hard real-time system which 


reflects those constraints and requires minimal development time. Such a system should 
exploit reusable components and validate timing constraints. 

If we are to produce and maintain Ada software that is reliable, affordable, and 
adoptable, the characteristics of Ada may not be the only important matter to consider. In 
addition, the characteristics of Ada software development environments may well be critical 


{Ref. 17]. 
3. Rapid Prototyping 


The demand for large, high-quality systems has increased to the point where a jump 
in software technology is needed. Rapid prototyping is one of the most promising solutions to 
this problem. Rapid prototyping is particularly effective for ensuring that the requirements 
accurately reflect the user’s real needs, increasing reliability and reducing costly requirement 


changes [Ref. 12]. 
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Figure 2.3 Iterative Prototype Development 
Figure 2.3 illustrates the iterative prototyping process, also known as “Spiral Model 
of Software Development”. In the prototyping cycle, the system designer and the user work 


together at the beginning to determine the critical parts of the proposed system. Then, the 


designer prepares a prototype of the system based on these critical requirements by using a 
prototype description language [Ref. 9]. The resulting system is presented to the user for 
validation. During these demonstrations, the user evaluates if the prototype behaves as it is 
supposed to do. If errors are found at this point, the user and the designer work together again 
on the specified requirements and correct them. This process continues until the user 
determines that the prototype successfully captures the critical aspects of the proposed system. 
This is the point where precision and accuracy are obtained for the proposed system. Then the 
designer uses the prototype as a basis for designing the production software. 

Some advantages and disadvantages of iterative development methodology are listed 
below: 


Advantages: 


e There is a constant customer involvement (revising requirements). 
e Software development time is greatly reduced. 
¢ Methodology maps to reality. 


e Allows use of common tools. 


e Disadvantages: 
¢ Configuration control complexities. 
¢ Managing customer enthusiasm. 


¢ Uncertainties in contracting the iterative development. 


The rapid, iterative construction of prototypes within a computer aided environment 
automates the prototyping method of software development and is called rapid prototyping 
[Ref. 18]. Rapid prototyping provides an efficient and precise means to determine the 
requirements for the software system, and greatly improves the likelihood that the software 
system developed from the requirements will be complete, correct and satisfactory to the user. 
The potential benefits of prototyping depend critically on the ability to modify the behavior of 
the prototype with less effort than required to modify the production software. Computer aided 


and object-based rapid prototyping provides a solution to this problem. 


B. THE COMPUTER AIDED PROTOTYPING SYSTEM (CAPS) 


One of the major differences between a real-time system and a conventional system is 
required precision and accuracy of the application software. The response time of each 
individual operation may bea significant aspect of the associated requirements, especially for 
operations whose purpose is to maintain the state of some external system within a specified 
region. These response times, or deadlines, must be met or the system will fail to function, 
possibly with catastrophic consequences. These requirements are difficult for the user to 


provide and for the analysts to determine. 


An integrated set of computer aided software tools, the Computer Aided Prototyping 
System, has been designed to support prototyping of complex real-time systems, such as 
control systems with hard-real-time constraints. The Computer Aided Prototyping System 
[Ref. 1] supports rapidly prototyping of such complex systems by using a partially graphical 
specification language. The designer of a software system uses a graphic editor to create a 
graphic representation of the proposed system. This graphic representation is used to generate 
part of an executable description of the proposed system, represented in the specification 
language. This description is then used to search for the reusable components in the software 
base to find the components matching the specification of the prototype [Ref. 19]. A translator 
is used to translate the prototype into a programming language, currently Ada. The prototype 
is then compiled and executed. The end user of the proposed system will evaluate the 
prototypes behavior against the expected behavior. If the comparison results are not 
satisfactory, the designer will modify the prototype and the user will evaluate the prototype 
again. This process will continue until the user agrees that the prototype meets the 


requirements. 


CAPS is based on the Prototyping System Description Language (PSDL). “It was 
designed to serve as an executable prototyping language at the specification or design level 
[Ref. 12].” An overview of PSDL will be presented in the following section. The main 
components of CAPS are user interface, software database system, and execution support system 
(Figure 2.4). Figure 2.5 shows CAPS as an Advanced Rapid Prototyping Environment, and the 


interaction of the tools within the environment. 
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Figure 2.4 Main Components of CAPS 
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Figure 2.5 CAPS Advanced Rapid Prototyping Environment: ARPE 
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C. THE PROTOTYPING SYSTEM DESIGN LANGUAGE (PSDL) 


PSDL is a partially graphical specification language developed for designing real-time 
systems, and specifically for CAPS. It is designed as a prototyping language to provide the 
designer with a simple way to specify the software systems [Ref. 2]. PSDL places strong 
emphasis on modularity, simplicity, reuse, adaptability, abstraction, and requirements tracing 


[Ref. 18]. 


A PSDL prototype consists of hierarchically structured set of definitions for OPERATORS 


and TYPES , containing zero or more of each. Each definition has two parts: 


¢ Specification part: Defines the external interfaces of the operator or the type 
through a series of interface declarations, provides timing constraints, and 
describes functionality by using informal descriptions and axioms. 


¢ Implementation part: Says what the implementation of the component is going 
to be, either in Ada or PSDL. Ada implementations point to Ada modules which 
provide the functionality required by the component’s specification. PSDL 
implementations are data flow diagrams augmented with a set of data stream 
definitions and a Set of control constraints. 


A PSDL component can be either atomic or composite. An Atomic component represents 
a single module and cannot be decomposed into subcomponents. Composite components 
represent networks of components. The Implementation part of the component tells if the 


component is atomic or coinposite. 
1. PSDL Computational Model 


PSDL is based on a computational model containing OPERATORS that communicate 
via DATA STREAMS. Modularity is supported through the use of independent operators which 
can only gain access to other operators when they are connected via data streams. 

PSDL is formally represented by the following computational model as an 
augmented graph by Lugqi et al. [Ref. 2]: 


G=(V.E,.FO).C 





” We will name them as the ““psdl component” in the following chapters. 
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where 


Vis a set of vertices 

E is a set of edges 

T(v) is the set of timing constraints for each vertex v 
C(v) is the set of control constraints for each vertex vu 


Each vertex represents an operator and each edge represents a data stream. The PSDL 


grammar is given in Appendix A. 


a. Operators 


Every operator is a state machine, modeled internally by a set of state variables. 
Operators that do not have state variables behave like functions, i.e., they give the same 
response each time they are triggered. A state machine produces output whose value depends 
upon the input values and on internal state values representing some part of the history of the 
computation, whereas a function produces output whose value depends on only the current 
input values [Ref. 17]. Operators can be triggered either by the arrival of input data values or 
by periodic timing constraints, which specify the time intervals for which an operator must fire. 

Operators are also either periodic or sporadic. Periodic operators fire at regular 
intervals of time while sporadic operators fire when there is new data on a set of input data 


streams. 


6. Data Streams 


Data streams represent sequential data flow mechanisms which move data 
between operators. There are two kinds of data streams: data-flow and sampled. Data-flow 
streams are similar to FIFO queues with a length of one. Any value placed into the queue must 
be read by another operator before any other data value may be placed into the queue. Values 
read from the queue are removed from the queue. Sampled data streams may be considered as 
a single cell which may be written to or read from at any time and as often as desired. A value 
is on the stream until it is replaced by another value. Some values may never be read, because 
they are replaced before the stream is sampled. Data streams have data-flow queues if and only 


if they appear in a TRIGGERED BY ALL control constraint. 
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c. Timing Constraints 
Timing constraints in PSDL impose an order on operator firing that is based on 


timing constraints: 


¢ Maximum Execution Time (met) 

¢ Deadline (fw) or Maximum Response Time (mrt) 

¢ Minimum Calling Period (mcp) 

Every time-critical sporadic operator has an mrt and mcp in addition to an met. 

The met is an upper bound on the length of time that an operator may use to 
complete its function. 

The mrt defines an upper bound on the time that may elapse between the point 
in time at which an operator is fired to read from its input streams and the time when its write 
event occurs. The mrt applies only sporadic operators. 

The mcp applies only to sporadic operators and represents a lower bound on the 
time between the arrival of one set of inputs and the arrival of another set of inputs G.e. two 
successive activations of the read transitions of an operator (Figure 2.6). The mcp can be 


considered as the window of opportunity for the operator to use, and the mrt as the used portion 








of it. 

= mcp ae 
| | 
ee eee ec Se 2 eee 
| | time 
<_—_— mt —— > | 
| | | 

activated wrote activated 

to read to read 


Figure 2.6 The mcp and mrt of an operator 


Periodic operators are triggered by temporal events and must occur at regular 
time intervals. For each operator f, these time intervals are determined by the specified period 
(OPERATOR f PERIOD t) and deadline (OPERATOR f FINISH WITHIN 2). 

The period is the time interval between two successive activation times for the 


read transition of a periodic operator. The period applies only periodic operators. 
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The deadline (fw) defines an upper bound on the occurrence time of the write 
transition of a periodic operator relative to the activation of its read transition. By default, the 
deadline is equal to the met, and a static feasibility constraint requires that fw2 me: (Figure 


2.7). 








<_ ————— period — > 
| fiw | 
. 
~<«— scheduling ———» | 
| interval | | 
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to read to read 


Figure 2.7 The period and deadline of an Operator 


The difference between the activation time of a read transition and the deadline 
for the corresponding write transition is called the scheduling interval. The scheduling 
intervals of a periodic operator can be viewed as sliding windows, whose position on time axis 
relative to each other is fixed by the period, and whose absolute position on the time axis is 
fixed by the occurrence time 1, of the first read transition. This time may vary within the 


interval 0 to the period of the operator (Figure 2.8). 


scheduling interval 


“- period ——— > 


| 


to < = period ——_ 


Figure 2.8 Scheduling Interval of an Operator 


d. Control Constraints 


The control constraints are the mechanisms which refine and adapt the behavior 
of PSDL operators. They specify how an operator may be fired, how exceptions may be raised, 


and how or when data may be placed onto an operator’s output data streams by using predicate 
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expressions. They also control timers, which are “software stopwatches” used to control 
durations of states. 

Triggering conditions and guarded outputs are expressed by predicates. If an 
input stream is guarded by a triggering condition, input data which do not satisfy the condition 
are read from the stream but do not fire the operator. Similarly, guarded output streams of an 
operator prevent the specified output data from being written into the guarded streams if the 
output guard conditions are not satisfied. 

Synchronization between different operators in PSDL is achieved by precedence 
constraints. These constraints are introduced by data streams as follows: 

Data-flow streams ensure that values are not read until they are written, and 
that a value is not overwritten before it has been read. This property ensures that transactions 
are not lost or repeated, and can be used to correlate data from different sources, such as 
preprocessor operators operating in parallel. Sampled streams cannot guarantee that values 
will never be overwritten before they are read. The purpose of a sampled stream is to provide 
the most recent available version of data. 

The precedence constraints associated with sporadic operators are implicit. 
Periodic operators are triggered by temporal events rather than by arrival of data values, and 


in certain conditions the precedence constraints can affect these timing constraints. 
2. PSDL Prototype Example 


The data-flow diagram in Figure 2.9 shows a fragment of a PSDL design graph with 
operators A and B, and data streams a, b, c, d. The graph also indicates maximum execution 
times, 10 ms for operator A, and 20 ms for operator B. These timing constraints are the 
maximum execution times for each operator to process data they receive via the input data 


streams. 


OP A TRIGGERED BY SOME a, b 
20 ms 





Figure 2.9 PSDL data-flow diagram with control constraints 
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Figure 2.10 [Ref. 20] shows a simple contro] system illustrating some typical features 
of PSDL. The example has a minimal specification part with an informal description. The 
implementation part contains a graph, making the operator ControlSystem a “composite” 


operator. The filter operator must be fired periodically, every 109 milliseconds. 


OPERATOR ControlSystem 
SPECIFICATION 
INPUT InputSwitch: BOOLEAN, SensorData: REAL 
OUTPUT ControlSignal: REAL 
STATES StateVariable: REAL INITIALLY 0.0 


DESCRIPTION {top /evel of a simple embedded system) 
END 


IMPLEMENTATION 
GRAPH 


InputSwitch: 


switch actuator 


ensorData 
sensor 


CONTROL CONSTRAINTS 
OPERATOR filter PERIOD 100 ms 
OPERATOR controller TRIGGERED BY ALL InputSwitch 
MAXIMUM RESPONSE TIME 200 ms 
MINIMUM CALLING PERIOD 200 ms 
END 
END 





Figure 2.10 Example of an Augmented Data-flow diagram in PSDL 


The controller operator is a sporadic operator, it must be fired whenever a new value 
for the InputSwitch arrives, and must complete execution in 209 milliseconds. The stream 


InputSwitch is a data stream, while SensorData and StateVariable are sampled streams. The 


triggering conditions state the requirements for the controller and actuator to respond exactly 


once to every new value in the streams InputSwitch. 
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Ill. DESIGN OF THE PSDL EXPANDER 


This chapter presents the design of the expander. To establish a convenient 
representation of PSDL specifications, we define a PSDL Abstract Data Type (ADT) that 
provides an Ada representation of a PSDL program. The PSDL ADT is built by using other 
common mathematical data types, like graphs, sets, maps, and sequences. The Ada 
specifications and implementations of those abstract data types are given in Appendices J, K, 


L, M, and N for reference. 


A. INTRODUCTION 


The main program of the expander consists of following operations: 


(i) Get PSDL program (@et) 
Gi) Transform the multi-level PSDL file (expand) 
(iii) Output expanded PSDL program (put) 


In the first step the input PSDL program is read and parsed by a LALR() parser, con- 
structed by using the tools ayacc and aflex, which are Ada versions of the parser generator tools 
yacce and lex that are provided by UNIX. A brief overview of the tools ayacce and aflex is given 
in the next section. During the parsing process PSDL operator names are mapped to operator 


descriptions and PSDL ADT representation of the program is created. 


The second step is the expanding step: in this step the abstract representation of PSDL 
program in Ada is used to translate multi-level PSDL program into a two-level one. During this 
translation process the transformation of the PSDL graph is transformed, and the timing con- 
straints are propagated into the new representation of the PSDL program. The diagram in Fig- 
ure 3.1 shows a high level diagram of this process. We explain the design of the graph trans- 
formation and timing constraint propagation in the following sections. The implementation of 
the graph transformation is given in Chapter IV. The implementation of the propagation of the 


timing constraints is left for future research. 
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Inthe third step, the Ada representation of expanded PSDL program is written into a text 
file to be used by other tools in CAPS. In the output file some normalizing conventions are used. 
For instance all timing values are converted to and output in units of millisec, and lists of type 
declarations are output in the format var1: type_namel1l, var2: type_name1, var3: type_namel. 


The steps in the expanding process is shown in Figure 3.2. 


multi-level PSDL input file 


PSDL ADT (Ada representation 
of multi-level PSDL) 


Expander 


expanded PSDL ADT 





Figure 3.1 The Expansion Process 


P : input (multi-level) PSDL text file 

P : output two-level PSDL text file 

Papr : ADT representation of multi-level PSDL 
P'apr: ADT representation of two-level PSDL 





Figure 3.2 The Steps in the Expanding Process 


B. USE OF PSDL ABSTRACT DATA TYPE 


1. Abstract Data Types in General 


An abstract data type, by definition, denotes a class of objects whose behavior is 
defined by a set of values, including a set of operations, constructors, selectors, and iterators. 
Luqi and Berzins [Ref. 17] describes the abstract data type concept as: 


Abstract data types can be defined by the developer or predefined by the 
programming language. Each abstract data type is itself a system whose interaction 
interfaces consist of the associated primitive operations. Each interaction with a 
primitive operation involves the flow of one or more data objects across the boundary of 
the abstract data type, at least one of which must be an instance of that type. 


An abstract data type is a class of data structures described by an external view: 


available services and properties of these services [Ref 21]. Inthe case of the PSDL ADT, these 
services are constructors, iterators, queries, exception definitions, and other type definitions. 
Using the abstract data type descriptions, we, as the users, do not care about how the 
implementation has been done, i.e. which data structures have been used; what is important 
for us is what operations it has — what it can offer to other software elements. This decouples 
the detailed implementation and storage representation information from program segments 


that use the abstract data type but have no need to know that information. 


2. Motivation and Benefits of PSDL ADT 


The main motivations for the PSDL ADT is to provide an Ada representation of the 


PSDL specifications to support building the expander and other tools within CAPS. The PSDL 


ADT includes operations for constructing PSDL components’, queries for basic attributes of 
PSDL components, and outputting the PSDL ADT as a PSDL program in a text file format (put 


operation), without worrying about how these operations are implemented. 


* ; ; 2 ee : 
These services are operations, other type definitions, and exceptions, constants, etc. 
" Psd] components are operators or PSDL types. 


The benefits of the PSDL ADT follow: 
¢ It provides a common input/output facility for PSDL programs for the tools within 
CAPS. 


e It makes the interface between the various CAPS tools cleaner by hiding 
unnecessary implementation details. 


¢ The whole PSDL program is treated as a single data structure, holding the all 
attributes of PSDL specification. Since the PSDL ADT provides all necessary 
operations, attributes can be queried easily. 


¢ It improves the efficiency and speed of the whole prototyping process in the CAPS, 
since there is no need for an external file I/O for reading the PSDL source text files. 


e It provides efficient storage usage, since all the memory management Issues are 
managed by the PSDL ADT itself. 


¢ It provides improved exception handling and semantic checking features. 
3. What is the Interface to the PSDL Abstract Data Type? 


AS we mentioned in the previous chapter, a PSDL program is a set of definitions of 
PSDL components, i.e. operators, and data types. Each component has a unique name and 
description which is composed of specification and implementation parts. A PSDL component 
definition can be represented as a function from PSDL id’s to PSDL definitions. Thus, a PSDL 
program can mathematically be represented as a map on PSDL component names as the 
domain and PSDL component definitions as the range. As part of the PSDL ADT, we define a 
type PSDL_PROGRAM, which is a map from psd] component names to psdl component 
definitions, that is a dynamic collection of bindings from the PSDL component names — 
domain, to PSDL definitions — range. We can view the value of PSDL_PROGRAM as an 


unordered collection of ordered pairs consisting of component_id’s and component_description’s. 
psdi_program {from :: component_id, to :: component_description} 


A graphical representation of a PSDL_PROGRAM as a map is illustrated in Figure 3.3. 
PSDL_PROGRAM has all the characteristics that a map ADT carries (see [Ref. 17, App. D]), and 


the operations defined for maps are also valid for PSDL_PROGRAM. 


Component_ld Component_Description 





Figure 3.3 The Abstract Representation of a PSDL_PROGRAM as a nap 


In the PSDL ADT the basic data type is Psdl_Component. Instances of this type hold 
all the information that a PSDL component (operator or data type) carries. The component 
hierarchy in PSDL is represented by a type hierarchy which is illustrated in Figure 3.4. The 
type attributes are shown in Figures 3.5 and 3.6. 


Psdl_Component 









Data_Type 


Atomic_Type Composite_Type Atomic_Operator 


Figure 3.4 PSDL ADT Type Hierarchy 


Operator 









type Psdi_Component 

SUPERTYPE None 

ATTRIBUTES 
Name: string 
Generic: map {string, Type Name} 
Keywords: set{string} 
Description: string 
Axioms: string 


type Data_Type 
SUPERTYPE Psdi_Component 
ATTRIBUTES 
Model: map {string, Type Name} 
Operations: map {ld, Operator} 


type Operator 

SUPERTYPE Psdl_Component 

ATTRIBUTES 
Input: map {string, Type_Name} 
Output: map {string, Type_Name} 
States: map {string, Type Name} 
Initialization: map {string, expression} 
Exceptions: set{string} 
Met: millisec 
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Figure 3.5 Attributes of type Psdl_Component and type Data_Type 


type Atomic_Operator 
SUPERTYPE Operator 
ATTRIBUTES 
Ada_Name: string 


te 


type Composite_Operator 
SUPERTYPE Operator 

Graph: Psdl_Graph 
Streams: map {string, Type_Name} 
Timers: set{string} 
Triggers: map {string, Trigger_Type} 
Exec_Guard: map {string, expression} 
Output_Guard: map {string, expression} 
Exception_Triggers: map {string, expression} 
Timer_Op: map {string, set{timer}} 
Period: map {string, millisec} 
Finish_Within: map {string, millisec} 
Min_Calling_ Period: map {string, millisec} 
Max_Response_Time: map {string, millisec} 
Description: string 
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type Atomic_Type 
SUPERTYPE Data Type 
ATTRIBUTES 
Ada_Name: string 


type Composite_Type 
SUPERTYPE Data_Type 
ATTRIBUTES 
Data_Structure: Type Name 
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Figure 3.6 Attributes of Atomic_Operator, Composite_Operator, Atomic_Type and 
Composite_Operator 
Some of the types used in the definitions of Psdi_Component and its subtypes are uSer- 
defined, and they are explained in Chapter IV. The formal and informal] definitions, and an 
implementation of maps and sets can be found in [Ref. 17]. Some other implementations can 


also be found in [Ref. 22]. The map and set implementations we used are based on the ones 


that are defined in [Ref. 17] with some improvements. The implementations are given in 


Appendices L and M. 


Four basic operations needed for the PSDL ADT are the constructor operations for 


the type hierarchy described above. Those are: 


e Make_Composite_Operator 
¢ = Make_Atomic_Operator 
e Make_Composite_Type 
° Make_Atomic_Type 
The other operations provided with PSDL ADT are operations used for adding 
attributes to Psdl_Component and query operations for attributes. A set of exceptions are also 
defined to signal failures of run-time checks for violation of subtype constraints, and to signal 


some semantic errors. These operations take place in the type hierarchy, and we describe them 


in Chapter IV. 


C. USING AYACC AND AFLEX IN PSDL ADT 


We used a LALR(1) parser to parse the PSDL specification to construct the PSDL ADT. 
The parser is generated by using tools ayacc— a parser generator, and aflex — a lexical analyzer, 
Ada implementations of popular UNIX? tools yacc [Ref. 23] and lex [Ref. 24]. Ayacc and aflex 
have been implemented as part of the Arcadia Environment Research at Department of Infor- 
mation and Computer Science, University of California, Irvine. Both of the tools generate Ada 
code, which in our case, provides compatibility with the other tools in CAPS that are imple- 


mented in Ada. 


1. Ayacc 


Ayacc generates a parser from an input of BNF style specification grammar, 


accompanied by a set of Ada program fragments (actions) to be executed as each grammar rule 








* UNIX is a trade mark of AT&T, Bell Lab Laboratories. 
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is recognized. Ayacc uses a push-down automaton to recognize any LALR(L) grammar [Ref. 3], 


and generates a set of Ada program units that act as a parser for the input grammar. 


2. Aflex 


Aflex is a lexical analyzer generating tool written in Ada designed for lexical 
processing of character input streams. It is a successor to the Alex [Ref. 25] tool from UCI, 
which was inspired by the popular UNIX tool /ex and GNU flex. Aflex accepts high level rules 
written in regular expressions for character string matching, and generates Ada source code 
for a lexical analyzer, by using a finite state machine to recognize input tokens [Ref. 4]. Aflex 
can be used alone for simple lexical analysis, or with ayacc to generate a parser front-end, as 


we have done in constructing the PSDL expander. 


3. PSDL Parser 


The PSDL parser’s primary responsibility is transforming the PSDL prototype 
source program into the PSDL abstract data type (described in section III.B). The parser has 
been constructed with ayacc and aflex. We adapted the PSDL grammar to make it suitable for 
ayacc input. The parser reads the PSDL program and constructs the PSDL ADT by using some 
auxiliary Ada packages. The top level diagram of the parser and PSDL ADT generation 
process are illustrated in Figure 3.7 and Figure 3.8 respectively. The implementation strategy 


of the parser is discussed in detail in Chapter IV. 


The parser reads the PSDL program, locates any syntax errors, and if no errors are 
present, constructs the PSDL ADT by using the auxiliary Ada packages. In the current 
implementation of the parser error recovery is not implemented and the parser will abort the 
execution at the first error encountered. This is a reasonable design because the PSDL code 
will be generated by the Syntax-Directed Editor of CAPS, and this should be syntactically 
correct. During the PSDL ADT generation process, a limited set of semantic errors in the PSDL 


specification are also detected, and suitable exceptions are raised. 











ayacc 

specification 
(PSDE 

Grammar) 


okens) 









procedure mere 
yyparse Packages 





Figure 3.7 Parser Generation Process 





Figure 3.8 PSDL ADT Generation Process 
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As can be seen from Figure 3.1 the parser acts as a get operation in the whole 
process. The implementation strategy of the parser and the data structures used in the parser 


are discussed in detail in Chapter IV. 


4. Known Deficiencies and Limitations of PSDL ADT 


In the current version of the PSDL ADT, BY REQUIREMENTS clauses are ignored. The 
substructure of expressions in PSDL is not represented. Extensive semantic checking of input 
PSDL specification is not done in parser or in the PSDL ADT, but some explicit run-time checks 


for violation of subtype constraints are done in the PSDL ADT. 


The parser does not have an error recovery scheme, and it aborts its execution at the 
first syntax error in the input PSDL specification file, by giving the line number and the most 


recent token recognized. 


D. DESIGN OF THE PSDL EXPANSION PROCESS 


This section describes a single processor design of the expansion process. The expansion 


of the Ada representation of the PSDL specification is done in two parts: 


¢ Transformation of the graph, 


¢ Propagation of tzming constraints. 


The next two sections describe these two models using expansion templates that illus- 


trate typical cases of the transformations. 


l. Transformation of the Graph 


An example of PSDL specification is shown in Figure 3.9. This represents a top-level 
operator (level 1) or root operator that decomposes into sub modules or operators. A root 
operator in PSDL does not have any input or output streams, but may have state variables. 
The implementation part represents the first decomposition or second level. Since the 
implementation of this operator is given as a graph, the operator is a composite. We are going 
to take this PSDL program as an example for our design. In this example, Operator A 


represents a simulation of an external system, and operator B represents a software system. 


This corresponds to the context diagram of the entire system, in which represents a state 


variable, and v represents a data stream. 


OPERATOR Example 
SPECIFICATION 
STATES u: REAL INITIALLY 0.0 
DESCRIPTION { Top-/evel of a simple prototype, some of the 
Structures are not shown} 


END 
IMPLEMENTATION 
GRAPH 
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Slot 
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CONTROL CONSTRAINTS 
OPERATOR A 
PERIOD 100 ms 
OPERATOR B 
TRIGGERED BY ALL u 
MAXIMUM RESPONSE TIME 200 ms 
MINIMUM CALLING PERIOD 200 ms 
END 
END 
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Figure 3.9 Top Level of Example Prototype 


Let us assume that the prototype Example is a four-level’ prototype. The expanded 
data-flow graph of prototype Example is shown in Figure 3.10. Suppose that operator A and 
operator B have the PSDL specifications as shown in Figures 3.11. and 3.12. 


Figure 3.10 Expanded Operator Example (level 2) 





** The number of levels in deepest decomposition of the data-flow graph. 
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* Sites 


OPERATOR A 
SPECIFICATION 
INPUT v: BOOLEAN 
OUTPUT u: REAL 
DESCRIPTION {this operator represents a simulation of an external 
system) 
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Figure 3.11 PSDL Code for Operator A 
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OPERATOR B 
SPECIFICATION 
INPUT u: REAL 
OUTPUT v: BOOLEAN, 
DESCRIPTION /<text>) 


END . 
IMPLEMENTATION . 
GRAPH x 


LILA SU ITIDI OA LTATIRIR RI SOE 


* 
SOY 


ite 


LOOSE 


CONTROL CONSTRAINTS 
OPERATOR Bt1 
OPERATOR B2 
TRIGGERED BY ALL t1 
MINIMUM CALLING PERIOD 200 ms 
OPERATOR B3 
PERIOD 50 sec 
END 
END 
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Figure 3.12 PSDL Code for Operator B 


The operators B1 and B2 are assumed to be atomic, and their PSDL code is not shown 


here. The expanded diagrams (level 3) of operators A and B are shown below side by side: 
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(a) (b) 


Figure 3.13 (a) Expanded Operator A (level 3), (b) Expanded Operator A (level 3) 


Now, we assume that operator B3 also has a decomposition and has the PSDL code 


in Fig 3.14. 


OPERATOR B 
SPECIFICATION 
INPUT t2: CHARACTER 
OUTPUT t3: REAL, 
END 
IMPLEMENTATION 
GRAPH 
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OPERATOR B1 
OPERATOR B2 
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OPERATOR B3 
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Figure 3.14 PSDL Code for Operator B3 
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This implies that operator B3 decomposes into the data-flow graph shown in Figure 
3.15, and we assume that there is no further decomposition, so that the operators B31, B32 and 


B33 represent atomic operators. 





Figure 3.15 Expanded Operator B3 (level 4) 


The equivalent two-level prototype consists of the root level operator with a 
decomposition that is given by the expanded graph shown in Figure 3.16. The shading 
illustrates the derivation of the expanded graph, but it is not part of the expanded graph that 
is derived from the composite operators’ graphs. In the final expanded graph all of the 


operators are atomic and their implementations are in Ada. 


number of levels = 2 





Figure 3.16 The expanded graph for Operator Example 
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2. Propagation of Timing Constraints 


PSDL timing constraints impose some consistency requirements between the various 
levels of a hierarchical PSDL design. This section provides the design of a method to propagate 


these timing constraints into the two-level representation of PSDL program. 


We describe each type of timing constraint associated with the lierarchy in the 
following subsections. Some very basic consistency checking between the timing constraints of 


various levels is also done, and error messages are produced as appropriate. 


a. Maximum Execution Time and Deadline (Finish Within) 


The maximum execution time (met) is an upper bound on the length of time 
between the instant when an operator is executed and the instant when the execution is 
terminated. The deadline (fw) defines an upper bound on the occurrence time of the write 
transition of a periodic operator relative to the activation of its read transition. The maximum 
execution time constrains a single operator, and for a single processor execution model, the 
maximum execution of a composite operator is the sum of the maximum execution times of the 
child operators. This sum must be no larger than the deadline of the parent operator. Also the 


maximum execution time of the parent must be no less than the sum of the mets of the children. 


n 


yi met. Uren 
T= | 


n 


y met. < met 


‘parent where 7 20, and1z)..1, denotes the children 
Ss) operators 


For a multiprocessor execution model the above sums are calculated for the 


operators on each path of the graph. 


6b. Period 


The period is the time interval between two successive activation times for the 
read transition of a periodic operator. The components or the children operators of a composite 


operator must be periodic, and assigned the same period as the parent operator as a default 
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value if the designer did not explicitly provide periods for the children operators. This 
inheritance property is realized by the expanding process. The period of a composite operator 
is propagated to each child operator with the same value. The consistency check between the 
period and the met of the operator can be done at this point, and for a single processor 
operation, the expander should also check that met<period for each operator, to allow the 


operator to complete its execution within the specified period. 


c. Minimum Calling Period 


The minimum calling period (mcp) represents a lower bound on the time 
between the arrival of one set of inputs and the arrival of another set of inputs. The children 
operators inherit the mcp from the parent composite operator if they do not have an mcp 
explicitly specified by the designer. So the mcp of the parent operator is propagated to the each 
child operator with the same value. But a static consistency check between the mcp and met 
must be done, and in a single processor model the relation met<mcp must be satisfied by each 
child operator. If this condition is not satisfied an exception should be raised, and an error 


message produced. 


d. Maximum Response Time 


The maximum response time defines an upper bound on the time that may 
elapse between the point in time at which an operator is enabled to read from its input streams 
and the time when its write event occurs. The sum of mrts of operators on each path of a sub- 
graph must be no larger than the mrt of the parent composite operator, and the met of each 
child operator must be no larger than the corresponding mrt, otherwise an exception is raised. 


nm 


i mrt, = Ge neen where k 2 0, and k).. k, denotes the children 
ae | operators on each path of the composite operato 


met f <mrt f where f is any operator. 
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3. Other Hierarchical Constraints 


A composite operator inherits the exceptions from the children operators, so during 
expansion process there is nothing to be done for propagating these properties. If there is an 


exception for a composite operator, that inherits from an atomic operator in the sub-graph. 


Input and output guards are inhented by conjunction, as illustrated in Figure 3.17. 





Control! Constraints before the expansion: 


OP ATRIGGERED IF P(x) 
OUTPUT y IF Q(y) 


OP Ai TRIGGERED IF P1(x) 


OP A2 OUTPUT IF Q2(u, y) 
OP A3 OUTPUT IF Q3\v, y) 


Control Constraints before the expansion: 
OP A1 TRIGGERED IF P(x) AND P1(x) 


OP A2 OUTPUT IF Q(y) AND Q2(u, y) 
OP A3 OUTPUT IF Q(y) AND Q3(v, y) 


Figure 3.17 The Inheritance of Input and Output Guards 


Input guards are propagated to all the sub-operators that read the input streams 
mentioned in the guard. Output guards are propagated to all the sub-operators that write the 


output streams mentioned in the guard. 
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IV. IMPLEMENTATION OF THE PSDL EXPANDER 


This chapter describes the implementation of the PSDL expander and its main 
components, the PSDL ADT, parser, expander and the output operation. The skeleton of the 
‘main program for the expander is shown in Figure 4.1. Each line corresponds to one of the main 


components of the PSDL expander. 
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with Psdl_Component_Pkg, Psdl_lo; 
use Psdl_Component_Pkg; 
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procedure Expander is 
The_Psdl_Component: Psdl_Program:= Empty_Psdl_ Program; 
begin 
Psdl_lo.Get(The_Psdl_Component); 
Expand(The_Psdl_ Component); 
Psdl_lo.Put(The_Psdl_Component); 
end Expander; 
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Figure 4.1 The Skeleton Main Program 


The next four sections describe the purpose, implementation and functionality of each 
component. We do not describe the implementation of each single routine, rather we emphasize 
the implementation techniques for some “key” routines. The routines or modules that are not 
described in this chapter should be easy to follow with comments associated with them in the 


source files given in the Appendices. 


A. PSDL ADT 
Purpose: 


The PSDL ADT provides an abstract representation of a PSDL program in Ada. With the 
operations provided by the PSDL ADT, components can be constructed and component in- 


stance attributes can be queried, changed or added. 
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Implementation: 


The specification for the PSDL ADT is given in Appendix F as Psdl_Component_Pkg. The 
initial version of specifications was written by Valdis Berzins. We made the modifications and 
enhancements to those specifications during the design and implementation of the PSDL 
parser. There are still some enhancements that can be done to the specifications, but they have 
not been done due to lack of time and are left for future work. These enhancements are de- 


scribed in Chapter VI. 


The PSDL ADT’s main type is Psdl_Component, and defined as a private record with dis- 
criminants to represent the PSDL component hierarchy in Ada. Information hiding and some 
encapsulation are provided by making Psdl_Component a private type. This limits access to the 
type to be just the operations provided by the PSDL ADT. For instance, the construction of a 
new instance of Psdl_Component, modifications or queries of instance attributes can only be 
done via the operations provided by the PSDL ADT. The main types defined in the PSDL ADT 
represent the components in the PSDL hierarchy (see Chapter III, Figure 3.4). The Ada decla- 
rations are shown in Figure 4.2 and the definition of Psdl_Component is shown in Figure 4.3. 
The user-defined types used in the definition of Psdl_Component are defined in the package Ps- 
d|_Concrete_Type_Pkg (Appendix I). 


type Psdl_Component (Category: Component_Type:= Psdl_Operator; 
(Granularity: Implementation_Type:= Composite) is private; 


subtype Operator is Psd|_Component; 
subtype Data_Type is Psdl_Component; 


subtype Atomic_Operator is Operator (Category => Psdl Operator, 
Granularity => Atomic); 
subtype Composite_Operator is Operator (Category => Psdl_Operator, 
Granularity => Composite); 
subtype Atomic_Type is Data_Type (Category => Psdl_Operator, 
Granularity => Atomic); 
subtype Composite_Type is Data_Type (Category => Psdl_Operator, 
Granularity => Composite); 
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Figure 4.2 The Main Types in PSDL ADT 
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Instances of each type shown in Figure 4.2 hold all the information that a corresponding 
PSDL component carries. Since a PSDL program is a collection of those components, the whole 
PSDL program is represented by a mapping from component names to component descriptions 


(the record Psd!_Component). 







type Psdl_Component(Category: Component_Type:= Psdl_Operator; 
(Granularity: Implementation_Type:= Composite) is 
record 
Name: Psdl_id; 
Gen_Par: Type_Declaration; 
Keyw: Id_ Set; 
Inf_ Desc, Ax: Text; 
case Category is 
when Psd!_ Operator => 
Input, Output, State: Type_ Declaration; 
Init: Init_Map; 
Excep: Id_ Set; 
Smet: Millisec; 
case Granularity is 
when Atomic => 
O_Ada_ Name: Ada _ld; 
when Composite => 
G: Psdl_Graph; 
Str: Type_Declaration; 
Tim: Id_ Set; 
Trig: Trigger_Map; 
Eg: Exec_Guard_Map; 
Og: Out_Guard_Map; 
Et: Excep_Trigger_Map; 
Tim_Op: Timer_Op_ Map; 
Per, Fw, Mcp, Mrt: Timing Map; 
Impl_Desc: Text; 
end case; 
when Psdl_Type => 
Mdl: Type_Declaration; 
Ops: Operation_Map; 
case Granularity is 
when Atomic => 
T_Ada_ Name: Ada_ld; 
when Composite => 
Data_Str: Type_Name; 
end case; 
end case; 
end record: 
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Figure 4.3 The Definition of Psdl_Component 
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We declare a pointer (an access type in Ada) to Psdl|_Component to reference a psdl compo- 
nent, and the mapping is from component name to this pointer. The pointer type is necessary 
to avoid circular dependencies. The mapping is implemented as an instantiation of a generic 
map package by providing the necessary generic parameters. The Ada declaration of this in- 


stantiation is shown in Figure 4.4. 


type Component_Ptr is access Psdl_Component; ‘ 
package Psdl_Program_Pkg is new Generic_Map_Pkg (Key => Psdl_ld, 
Result => Component_Ptr); 


See 


type Psdl_Program is new Psdl_Program_Pkg.Map; 


-- A psd! program is an environment that binds psd! component names 
-- to psdl component definitions. 
-- The operations on Psdl_Program are the same as the operations on map. 
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Figure 4.4 Declaration of type PSDL_PROGRAM 


The PSDL ADT uses several other auxiliary Ada packages. These are: 
¢ Psdl Concrete Type Pkg: This package provides the data structures and defined 
types used by the PSDL ADT (Appendices F and G). 


¢ Psdl Graph Pkg: It provides a an abstract data type representation of the data-flow 
graph portion of the PSDL program, and has a set of operations for constructing a 
data-flow graph and attribute queries. Specification and implementation are given 
in Appendices J and K. 


¢ Generic_Map_ Package: This is a generic mathematical map package, and carries all 
the typical map operations. This implementation of map is based on the formal 
definition by Lugi and Berzins [Ref. 17], and was enhanced by adding more 
features and better memory management. The package uses set as the main data 
structure, which is also based on the one in [Ref. 17]. This package also utilizes 
sets and maps in the implementation. 


The operations, and exception definitions provided by the PSDL ADT are not listed here, 


they are self explanatory in the source code listing, which is given in Appendix G. 


One of the additions that we have made to the PSDL ADT is the output operation put used 
in the main program, that outputs the expanded PSDL program by extracting from the PSDL 
ADT, into a text file for further use by other tools within CAPS. Although this operation is em- 


bedded into the PSDL ADT, it is worthwhile to devote a whole section to describe it due to the 


complexity of its functionality. The implementation of the output operation put is described in 


Section D of this Chapter. 


B. PSDL PARSER 
Purpose; 


To implement the get operation for the PSDL expander, and to construct the abstract rep- 
resentation of the PSDL program in Ada by using the PSDL ADT. In other words, the PSDL 
parser and the PSDL ADT comprise the get operation for the PSDL expander. The parser reads 
in the PSDL source program from a text file, and builds an instance of type PSDL_PROGRAM 


representing the whole PSDL program as an Ada object. 


Implementation: 


We generated the parser by using the tools ayacc and aflex, a parser generator and a lex- 


ical analyzer. The detail of the tools and how they are used to generate a parser can be found 


in [Ref. 3 and Ref. 4]. The parser generated by ayacc is an LALR(1) parser. For the character- 


istics of LALR(1) parsers and their constructions refer to [Ref. 5 and Ref. 6]. 


The PSDL parser or get operation has two basic parts, which are explained in the next 


two sections: 


¢ Lexical analyzer 


e Parser 


1. Lexical Analyzer 


The Lexical analyzer is written in aflex. Aflex generates a file containing a lexical 
analyzer function (YYlex) along with two auxiliary packages. Since our purpose was to 
generate a parser, we implemented the lexical analyzer as an Ada package (package Psdl_Lex 
in file psdl_lex.a, given in Appendix R), containing the lexical analyzer function YYlex 
which is called by the parser function YYParse. The filepsdl_lex.1 (Appendix B) is the input 


to aflex, and defines the lexical classes and the regular expressions used in the PSDL grammar. 











LookAhead Left Recursive parser that can look ahead one token. 
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Each regular expression has an associated action, written in Ada, which is executed when the 
regular expression is matched. Each call (by the parser procedure YYParse) to YYlex returns a 
single token. The type Token is an enurneration type defined in a package called Psdl_ Tokens 
(Appendix X), that is generated by ayacc from the token declarations part of the ayacc 


specification file. 


The auxiliary packages include Psdl_Lex_Dfa and Psdl_Lex_lo packages. The package 
Psdl|_Lex_Dfa contains functions and variables that are externally visible from the scanner. 
One of the most frequently used ones in our implementation is YYText, which returns a textual 
string representation of the matched input token in type string. We used this function exten- 
sively in the actions of the parser to get the string value of the tokens recognized. One of the 
problems that we encountered was, in the case when the input token is a literal (string, integer 
or real literal), or an identifier, YYText sometimes returns the string value of the lookahead 
token. To work around this problem (as it is suggested by John Self, the author of the tool), we 
declared one global variable for each type of token we mentioned above, and assigned the value 
returned by YY7Text as soon as the token is recognized, and we used those global variables, in 
the ayacc actions instead of YY7ext when needed. This works except when two identifiers come 
after another. To compensate for this special case, we had to declare two global variables of 
type Psdl_ld in the user declarations part of the aflex specification: one representing the most 
recently scanned identifier, and the other the previously scanned identifier. This special case 
arises in the production for type_name. A reference to the previous identifier is needed in the 
case where there are two consecutive type declarations after keyword “generic” in a psdl 
type specification part of the rules. The package Psdl_Lex_Dfa also contains another frequently 
used function YYLength which returns the length of the string representation of the matched 


token. 


The package Psdl_Lex_lo contains routines which allow yylex to scan the input source file. 


These are described in [Ref. 3]. 


We added two procedures in the package Psdl_Lex by putting them in the “user defined” 
section of the aflex specification file psdl_lex.1 and the generated file psdl_lex.a. These 
are Linenum and Myecho. Linenum keeps track of the number of lines in the input file, using 


the global variable lines - type positive, and used for giving the location of the syntax errors. 


Myecho writes the textual string representation of each matched token into a text file by ap- 
pending the line numbers at the beginning of each line. This file is named as <input - 


file>.1st, and is used to provide a listing file for the input PSDL source file. 


2. Parser 


The parser is written in ayacc, a parser generator tool. Ayacc constructs a parser 
which recognizes a language specified by an LR(1) grammar. The main parser procedure 
YYParse makes a call to lexical analyzer function YYLex to get an input token, and then 
matches the grammar rules and executes the actions associated with these grammar rules. 
Although it is simple we will not explain how the parser works (see [Ref. 4]), since it is not our 
concern, instead we will concentrate on the semantic actions for the rules in the input 


specification file. 


a. Ayacc Specification File: psdl.y 


This file is a collection of grammar rules and actions associated with them, along 
with the Ada subprograms we provided to be used in the semantic actions. A detailed 
description of the ayacc specification file in general can be found in [Ref. 4]. The following 
sections explain the most important aspects in the specification file. The specification file is 


given in Appendix C. 


b. Associating Ada Types with the Grammar Symbols: type YYSType 


Ayacc provides a way to associate an Ada data type with nonterminals and 
tokens. The data type is defined by associating an Ada type declaration with the identifier 
YYSType. Once this type is defined, actions can access the values associated with the grammar 
symbols. This declaration appears in the tokens section of the ayacc specification file. 

We declared YYSType as a record with discriminants. This provides a way to use 
pseudo-variable notation ($$) to denote the values associated with non-terminal and token 
symbols. This makes possible use of ayacc’s internal stack to associate actions that are 
attached to the grammar rules with the tokens of different type when they are recognized. The 
declaration of YYSType is shown in Figure 4.5. The types used here are defined in the package 
Psdl_Concrete_Type. 
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type TOKEN_CATEGORY_TYPE is(INTEGER_LITERAL, 
PSDL_ID_STRING, 


EXPRESSION_STRING, 

TYPE _NAME_STRING, 

TYPE _DECLARATION_STRING, 
TIME_STRING, 
TIMER_OP_ID_STRING, 
NO_VALUE ); 


SOLO LOL B 






neta 


type YYStype (Token_Category : TOKEN_CATEGORY_TYPE := NO_VALUE) is 
record 
case Token_Category is 
when INTEGER_LITERAL => 
Integer_Value : INTEGER; 
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when PSDL_ID_STRING => 
Psdli_Id_ Value : Psdl_ld; 


LOSS DGS 


when TYPE_NAME_STRING => 
Type_Name_Value : Type_Name; 


when TYPE_DECLARATION_STRING => 
Type_Declaration_Value : Type_Declaration; 


when EXPRESSION_STRING => 
Expression_Value : Expression; 


when TIME_STRING => 
Time_Value : Millisec; 


when TIMER_OP_ID_STRING => 
Timer_Op_Id_Value : Timer_Op_ld; 


when NO_VALUE => 
White_Space : Text := Empty_ Text; 
end case; 
end record; 
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Figure 4.5 The Declaration of YYSType 


c. Data Structures Used in the Actions 
We declared one global variable corresponding to each field in the 
Psdl_Component record, to hold their values until a call is made to constructing operation in 
the PSDL ADT. After this call is made, we reset their values back to their default values as 
specified in the PSDL ADT. 
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We also used several data structures and abstract data types to store the 


aggregate values temporarily. These are: 


e Sets, 
° sequences, 


e stacks 


We used sets when we needed temporary storage to hold the tokens read but the 
order of those tokens is not important. For instance, in Figure 4.6 (where a fragment of PSDL 


code and corresponding ayacc specification is shown), the order of IDENTIFIERs is not important, 


eee aN 


CONTROL CONSTRAINTS S 
OPERATOR navigation_system 
OUTPUT CPA, bearing, track_id, datum IF range < 5000 


constraint options 
:constraint options OUTPUT TOKEN 
{ 
Thevidvsec >= Empty Tdisec; 
(HemexApressi One e=cring --Sxpressicon(’ Strings-<Empty) ; 


OTH LON TOG IIE 


MRL PILES IESE SERGE GYGESIESEE SASSI CS ESGLLEESSSTES: 


Y 


Tie OuULput Sia Op.:— The Operator Name; 
} 
id_list IF_TOKEN 
(ihe Expression String := Expression (A Strings.Empty); } 
expression reqmts trace 
{ 
declare 
procedure Loop Body(Id ;: Psdl Id) is 
begin 
THe SOUEPUr dst rcam <= 4d; 
Band, Out ’Guard(ihe Output id, The Expression String, 
The sOue Guard) ; 
end Loop Body; 
procedure Execute Loop is 
new Id Set _Pkg.Generic Scan(Loop Body) ; 
begin 
Execute sleep (The Id Ser); 
end; 


} 
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Figure 4.6 The Use of sets in the Semantic Actions 


so we add each IDENTIFIER in a set (this is done in the production id_1list), and when we are 


done reading we process each member of the set. In this case the se¢s are used to avoid the need 
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for lookahead or multiple passes. In Figure 4.6, we have to bind each IDENTIFIER in the set to 
an expression that is not known at the time the IDENTIFIER is scanned, because the expression 
occurs later in the input files. This technique is known as “back patching” in compiler design. 


The Ada code for a generic set is given in Appendix L. 


When the order of the tokens read is important for later processing we use 
sequences (defined in Appendix N) for temporary storage. A similar example to the one we gave 
for set case, is given in Figure 4.7. Here, the order of state declarations is important because 


the initialization of the states are given in an order corresponding to the order of declarations, 






OPERATOR weapons _interface 
SPECIFICATION 


OSD IOS, 


STATES 
ciws_ Status, 
gun_status, 
sonar_ status, 
ecm_status : weapons_status_type INITIALLY ready, loaded, ready, passive 


ROSALIE 


END 
attribute 


| STATES TOKEN 
{ 
Type Decl Stack Pkg.Push (The Type Decl Stack, 
Empty Type Declaration); 
TaySeg eekg.eipty (he mlagseqe, 
} 
list _of type decl 
{ 
Type Decl Stack _ Pkg.Pop(The Type Decl Stack,The State) ; 
The [nat Map id Seq <= The Tdicec; 
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} 
INITIALLY TOKEN 
{ 
Init Exp Seq Stack Pkg.Push(The Init Exp Seq Stack, 
Empty Exp Seq); 
The Expression String := BExpression(A Strings.Empty); 
} 
initial expression list 
{ 
Init_Exp Seq Stack Pkg. Pop(The Inttsbap Seq Stack, 
thewinit Expr Seq); 
Bind Initial State(The State,The Init Expr Seq, 
The Initial Expression); 
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} 
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Figure 4.7 The Use of sequences in the Semantic Actions 


and at the time we read the state declarations, the initializations are not known. So we need 


to hold these declarations in a buffer in the order that they are read. We use the same 
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technique for the initial_ expression. When the whole rule is parsed, we do the binding of each 


State to the corresponding initial_expression. 


Another data structure we used frequently in the parser is the stack, one of the 
most essential data structures in every compiler, operating system, editor, and many other 
applications. The Ada code for a generic stack is given in Appendix O. The need for using a stack 
arises when there are nested read and write operations, (i.e, when there is a set of read and 


write operations and between a write and the corresponding read, as it is shown in Figure 4.8). 


write read 





Figure 4.8 The Nested read and write Operations 


This technique is especially convenient when there are recursive rules in the 
grammar. The parser uses a stack to hold or to stack the input tokens for later use. Initially 
the stack is empty, and we push the first “object” that needs to be held onto the stack, then we 
if need to “hold” some other objects before the first object is processed, we push and pop them. 
After each pair of push-pop operation the content of the stack becomes the same as it was before 


the push. 


Let us now illustrate the above thought with a typical structure in the PSDL 
grammar. One good example is the evaluation of the initial expression asa string that 
we used in Figure 4.7 for state initialization. Figure 4.9 shows a fragment of ayacc specification 
and corresponding PSDL source lines. In this example, we have an expression of the familiar 
type, grouped and nested using left and right parentheses. The expression inside first pair of 
parentheses is another initial_expression_list, and should be parsed by the 
corresponding rule again. If we do not save the coutents of the previous sequence (TN.On in the 
sample input file at the top of Figure 4.9), it will be overwritten by the next value generated by 
a nested sub-expression (wp1 in Figure 4.9). To work around this problem, we use a temporary 
sequence, and put the value of the expression in this sequence, and push the sequence onto the 


stack. 
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OPERATOR weapons_interface 
SPECIFICATION 


STATES 
ciws_ status, 
gun_status, 
ecm_status : weapons_status INITIALLY ON, loaded, TN.On(wp1, TR.OFF(Wp2)) 


OSE OSE OO EO 


END 


initial _ expression list S 
initial expression list ’,’ initial_expression Ss 

\ 

init Bap oSeq StackePkg-.Pop (The Init VExpesequsuaem, & 

Temp Init Expr Seq); R 

Exp Seq Pkg.Add($4.Expression_Value,Temp Init Expr Seq), Si 

init Exposeq.Stack Pkg. Push (The  inieeixp Pseqaceack, S 

Temp _Init Expr Seq); SS 

} S 

. 

und 

initial expression RS 


| type name ’.’ IDENTIFIER 
{ 
The Expression String -= The Expresstem sot Ging ecm =a 
ExXpressionviue 1a Token, 
$$ := (Token Category => Expression String, 


Expression Value => 


The Expression String); 


} 
| type_name ’.’ IDENTIFIER 
{ 
S$ := (Token Category => Expression String, 
Expression Value ==) [he Expression OG r tig gc 7 ae 
Expression (The_Id Token) ); 


} 


aaa 
{Inve Exp Seq Stack Pkg. Push (ihe Inieeexpm occmoucen, 


Empty Exp Seq); } 


initial expression list ’)’ 
{ 
Init Exp Seq Stack Pkgq.Pep(the Init Expeseq Seack, 
Temp Init Expr Seq); 


ThevExpressicnmot hing := Expression(A_ Strings.Empty) ; 


Bots. ini Exp Seq Pka@-Length (Temp intteixpreseq) oop 
it ee >> leben 
The Expression String: = ihe exprecstonmeer i ndea) , 7 
end if; 
The Expression String := ThevExpressionwct ring «4 
Exp Seq Pkg.Fetch(Temp Init Expr Seg, i); 
end loop; - = a 7 _ 


Exp Seq Pkg.Recycle(Temp Init Expr Seq jaar row ste away 
S$ := (Token Category => Expression String, 
Expression Value => $4.Expression Value & “(™ & 
The Expression String « ) 9); 
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Figure 4.9 The Use of stacks for Evaluating the String Value of Expressions 


WODLLO 


When we evaluate the expression in the first pair of parentheses, we use the sequence at the 
top of the stack and add new expression to the content of the sequence. We assign the content 
of the sequence to the value of this production ($$) to be used by the parent rule, and we reclaim 
the heap space used by the temporary sequence. The evaluation of the expression in the second 


(more deeply nested) pair of parentheses is done in the same way. 


In addition to the data structures we mentioned above, we made use of the 
internal stack provided by ayacc to evaluate the productions. In the cases similar to the one 
above, the internal stack is not sufficient. As it can be seen from the specification of the 
example given above, the internal stack is being also used. Another typical case is the rule 
list_of_type declaration, where there are multiple recursive productions. We used 


Stacks in a similar way to evaluate these productions. 


d. User Supplied Ada Code in the Ayacc Specifications 


The Ada code (package Parser) at the end of the ayacc specification file is 
composed of: 
¢ Global variable declarations corresponding to each field in the _ record 


Psdl_Component, for the types defined in package Psdl_Concrete_Type_Pkg, other 
temporary variables. 


¢ Generic package instantiations. 
¢ Generic procedure renaming. 


¢ Ada local subprograms that are used in the actions. These are simple routines used 
to modularize the code and to improve the readability. Their functionality is clear 
from the Ada code and the comments associated with them. 


¢ procedure YYParse, a parameterless procedure declaration for the main parsing 
procedure with the key marker, ## in the package body. The body of YYParse is 
generated by ayacc, and inserted where the marker is located. 


* procedure YYError, an error reporting procedure. It takes a string, defaulted to 
“Syntax Error”, corresponding an error message, aS an argument. YYError is 
automatically called by the parser when it detects a syntax error. 


ol 


¢ procedure Get is the driver procedure of the parser, and explained in the next 
section. 


e. Ada Compilation Units Generated by Ayacc 


Ayacc generates four Ada compilation units (packages) in four files, from the 
input specification file psdl.y. A brief description of each of these follows: 
¢ psdl.a: This is the primary output of ayacc and contains the procedure YYParse 


along with the Ada code we provided in the “optional user declarations” section of 
psdl.y. The file psdl.a is given in Appendix U. 


* psdl_tokens.a: This file contains package Psdl_Tokens which provides the type 
and variable declarations needed by both the parser procedure YYParse and lexical 
analyzer function YYLex. This package is extracted from the “declarations” section 
of the ayacc specification file, and provides a way to associate PSDL concrete types 
with nonterminals and tokens used in the specification file, to be able to use $$ 
convention in the semantic actions. This type association is done via the type 
YYSType (see Chapter IV, Section B.2.a), a record with discriminants which has 
fields for the value of each different token that we use in the semantic actions. The 
package is given in file psdl_tokens.a (Appendix X). 


* psdl_ shift _reduce.a and psdl_ goto.a: These two files contain the static 
parser tables used by YYParse, and are given in Appendices V and W. 


C. GET OPERATION 


The procedure Get provided in the package Parser is nothing but a driver procedure for 
the parser. We overloaded the standard Ada procedure name Get. The first Get procedure reads 
the standard input. The other Get procedure takes a string as the input file name. The syntax 
errors are displayed on the standard output with the line numbers and the string representing 


the most recent token read. 


To provide a standard I/O package, we wrote an I/O package Psdl_lO. This package con- 
tains the renaming of these two procedure and a Put procedure that is explained in the next 


section. Package Psdl_IO is given in Appendix E. 


D. EXPAND OPERATION 


In this implementation of the expander only the implementation of transformation of the 
graph portion of the PSDL specification is done. The implementation of the propagation of the 


timing constraints is left for future research. 


The expansion of the graph is done level by level and in three passes for each node in one 


level. 


e Replace the node with the nodes in the sub-graph 
¢ Connect the edges 
¢ Connect input/output streams to the expanded graph 
In the first pass, each vertex or operator at the top level data-flow graph is expanded or 


replaced by the vertices in its corresponding subgraph. 


After the vertices replaced, in the second pass, the edges (streams) are connected (added) 
to those vertices. Actually the process is done at the first and second passes is nothing but re- 
placing the vertex with the corresponding subgraph. But since, there is no such operation pro- 
vided with the PSDL ADT, we have to realize this process in two passes. An enhancement can 


be done to the PSDL ADT to provide this operation directly. 


In the third pass external interfaces to the vertices are connected (input and output 
streams). The problem here is to decide where the input and streams are going to be connected. 
This information is taken from the specification part of the composite operator that has been 


expanded. 


The above process is repeated for each vertex in one level. After all the vertices are re- 
placed with their corresponding sub-graphs, each vertex in the resulted expanded level is 
checked if it is has a decomposition or if it is composite. If there are operators which are com- 
posite, then each composite operator is expanded in the same way by using the process ex- 
plained above. This “level by level” expansion is done till all the levels have only atomic oper- 


ators, except the top-level, which is the root operator. 


E. PUT OPERATION 


The Put operation is implemented as one of the operations in PSDL ADT. Although this 
operation did not exist in the original specification of the PSDL ADT written by Berzins, it is 
reasonable and useful to keep the I/O operations within the PSDL ADT. The other advantage 
is the ease of implementation. Since access to the private part is allowed only within the body 


of the package, each attribute of the Psdl_Component is obtained by the “dot notation” of Ada. 
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We implemented the put operation as a separate procedure of package Psdl_Component_Pkg. It 
is composed of several nested procedures to provide a suitable solution for converting the Ada 
representation of the expanded PSDL program into a formatted or pretty printed PSDL source 


file. The body of the procedure is shown in Figure 4.19 as a pseudo-code. 


(1) foreach [( Id: Psdi_!d; Cp: Component_Ptr) in The_Psdl_Program ] loop ‘ 

) Component := Component_Ptr.all; /* dereferencing the pointer */ ‘ 

) Put_Component_Name ( Component) ; s 
if Component is Psdl_Operator then 

Put_Operator_Specification ( Component ); 


Put_Operator_Implementation ( Component ); 

else /* a Psdl Type */ 
Put_Type_Specification ( Component ); 
Put_Type_Implementation ( Component ); 

end if; 
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Figure 4.10 The Body of Put Operation 


For the implementation of the foreach construct shown in Figure 4.10, the m4(1) macro 
preprocessor of UNIX is used. Implementation of this transformation from foreach notation into 
the equivalent Ada representation is done by using a set of m4 macros, and a generator [Ref. 
17]. This provides an easy way to use the generic_scan procedure to scan the all pairs in the 
map representing the PSDL program. Since each pair is composed of an Id and a pointer to Ps- 


dil_Component, the lines 2-10 in Figure 4.10 are executed for each pair. 


Lines 3, 5, 6, 8, and 9 are procedure calls. Line 3, Put_Component_Name is easy to imple- 
ment and is basically outputs the name attribute of the component with the suitable keyword 
TYPE or OPERATOR depending of the component’s category and suitable formatting characters. 
The implementations of the other four procedures are not that easy, since complex data struc- 
tures like maps, sets, graphs are involved in the Ada representation of corresponding at- 
tributes in the Psdl_Component record. We use the same technique to extract the elements or 
attributes of these data structures or abstract data types as we did with the Psdl_ Program in 


the above paragraph. And we add some formatting characters to give a pretty printed look to 
the extracted PSDL output. 
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In the case of the graph attribute of the Psdl|_Component we use the attribute query op- 


erations provided by the Psdl_Graph ADT, to extract the attributes of the graph. 
The put operation is in file psdl_put.a and is given in Appendix H. 


Like we did with the get operation, to provide a standard way for Psdl I/O, we renamed 


procedure Put_Psdl in package Psdl_lo as procedure Put. 


The output is written to standard output, unless the output is redirected to a file with 
switch -o and a file name at the invocation of the expander. The output file is a pretty printed 


legal PSDL specification ready to be processed by the other tools in CAPS. 


F. INVOCATION OF THE PSDL EXPANDER 


The PSDL expander is a stand-alone program and is invoked on the command line. The 


command syntax is: 
expander [input-file] [-h]} [-o output-file] 


When no arguments are provided, the expander reads the standard input, and outputs 
to the standard output. If the standard output is the keyboard “D is used to signal end of in- 


put.The input to expander can be piped through the output of another program. 
The —-h switch prints a short message describing the usage of the expander command. 


The default output file for expander is the standard output. The switch -o with a file 
name directs the output to a UNIX file. If the -o switch is used the output file should have 
write permission if the file already exists or the directory should be “writable” . Otherwise ex- 


pander will abort with an error message: 


Error: can’t create output file. Permission denied. 


Each time the expander is invoked a listing of the input file is created in the directory 
that the input file exists or if the input is standard input, in the current working directory 
when the expander is invoked. The name of the listing file will be stdin.psdl.1st for the 


standard input, or a pipe. If the input file is specified on the command line, then the name of 


oo 


the listing file will be the concatenation of the name of the input file and “. 1st”. If the directory 


is not “writable” then expander will abort with an error message like the following: 


Error: can’t create listing file. Permission denied. 
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V. CONCLUSIONS AND RECOMMENDATIONS 


A. SUMMARY 


This thesis research has contributed towards the development of a “better” CAPS envi- 
ronment by providing a tool that can supports hierarchically structured PSDL prototypes, to 


simplify prototyping of large and complex systems. 


The current implementation of the Execution Support System within CAPS is limited to 
hierarchically structured PSDL specifications with at most two levels. There has been a need 
to translate a multi-level PSDL source code into a two-level one to extend the domain of the 


entire system by providing a tool that can do this translation. 


Our work has been the first attempt to make hierarchically structured multi-level PSDL 
programs available for the CAPS, and to provide a modular/top-down prototype development. 
We designed and implemented a PSDL expander that translates a PSDL prototype with an ar- 
bitrary depth hierarchical structure into an equivalent two-level form that can be processed by 


the other CAPS tools with their current implementations. 
The two issues studied in expanding the multi-level PSDL source code: 


¢ Transformation of the data-flow graph, 
¢ Propagating the timing constraints into the new representation. 
We did the design and implementation of the transformation of the data-flow graph by 
replacing all composite operators with their corresponding subgraphs with only atomic opera- 


tors by preserving the data-flow streams. 


We provided a partial design for propagating the timing constraints into the expanded 
form of the PSDL program. The implementation of this part the design is left for future re- 


search. 


As part of our research we designed and implemented a PSDL abstract data type repre- 
senting the whole PSDL program. The PSDL ADT provides an abstract representation of a 


PSDL program in Ada, all of the necessary operations, and all of the supporting types associ- 
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ated with it. The PSDL ADT makes the interface between the various CAPS tools cleaner by 


hiding unnecessary implementation details, thus providing a common input/output facility. 


We used a LALR(1) parser to parse the PSDL specification to construct the PSDL ADT. 
We generated the parser by using the tools ayacc and aflex, a parser generator and a lexical 


analyzer developed at University of California Irvine as part of the Arcadia Project. 


This research did not provide any work for expanding the PSDL specifications including 


DataTypes, and is reommended for a future thesis project. 


B. RECOMMENDATIONS FOR FUTURE WORK 


This thesis research has provided an initial design and implementation of the PSDL Ex- 
pander and PSDL ADT. Further research is needed to complete full implementation of the ex- 
pander, and identify the potential weaknesses. We recommend future work in the following 


specific areas: 


e¢ The design and implementation of an efficient method for inheritance of timing 
constraints and static consistency checking. 


¢ The design and full implementation of a consistency checker that will pinpoint 
possible inconsistencies in the timing constraints between various levels of a PSDL 
program. 


¢ Improving the capabilities of the PSDL expander by adding the ability to expand 
the PSDL programs containing PSDL Types. 


¢ Enhancement of the PSDL ADT by providing more semantic checks and 
exceptions, adding the missing attributes (i.e., by requirements clauses) to the 
definition of type Psd|_Component, and more operations to access the attributes 
directly (for example, the existing operations are not well suited to implement the 
put operation as a stand-alone procedure, and because of the Put procedure was 
implemented as part of the PSDL ADT). 


¢ Improvement of PSDL graph ADT by adding exception handlers and more 
operations. The current implementation does not provide any exception handling. 


e Adding an error recovery scheme (for syntax errors) to the PSDL parser. The 
current implementation does not have an error recovery scheme, and the parser 
aborts at the first syntax errors encountered by signalling the line number and the 
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erroneous token read. Dain’s study can be a good reference for realizing an error 
recovery scheme for the PSDL parser [Ref. 27]. 


C. CRITIQUE OF AYACC AND AFLEX 


The current interface between ayacc and aflex complicates programming considerably be- 
cause of the possibility that the parser may have to read a lookahead token in order to deter- 
mine which production to reduce. This results in hard-to-predict behavior and considerably 


complicates the code in the semantic actions. 


A cleaner design would allow the tokens returned by the lexical analyzer to have 
attributes (such as the matching but currently returned by YYtext, the current line number, 
or the current column number). This would require the introduction of a user defined type 
XXSType in the lexical scanner that is analogous to the YYS7Type currently provided by the 
parser. Currently the token type is an Ada enumeration type whose definition is generated by 


the tools and is beyond the user’s control. 


This recommendation also applies to the UNIX tools lex and yace. 
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APPENDIX A. PSDL GRAMMAR 


This grammar uses standard symbology conventions.Optional items are enclosed 
in [ square brackets ]. Items which may appear zero or more times appear in { curly 
braces }. Terminal symbols appear in bold face. Groupings appear in ( parentheses ). 
Items contained in “double quotes” are character literals. the “|!” vertical bar 
indicates a list of options from which no more than one item may be selected. This 
grammar represents the current version of the PSDL grammar as of 1 September 
1991. All previous versions are obsolete. 


start = psdl 
psdl 
= {component} 
component 
= data_type 
| operator 
data_type 
= type id type_spec type_impl 
type_spec 
= specification [generic type_decl] [type_decl] 
operator id operator_spec} 
[functionality] end 
operator 


= operator id operator_spec operator_impl 


operator_spec 
= specification {interface} [functionality] end 


interface 
= attribute [reqmts_trace] 


attribute 
= generic type_decl 
| input type_decl 
| output type_decl 
| states type_decl initially initial_expression_list 
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| exceptions id_list 
| maximum execution time time 


type_decl 

= id list “:” type_name {“,” id_list “:” type_name} 
type_name 

= 1d 

| id aie tvpe_decl aug 
id_list 


~ id aes id} 


reqmts_trace 
= by requirements id_list 


functionality 
= [keywords] [informal_desc] [formal_desc] 


keywords 
= keywords id _list 


informal desc 
= description “{“ text “}” 


formal desc 
= : ioms ss bi text as 


type_impl 
= implementation ada id end 
| inplementation type_name {operator id operator_impl} end 


operator_impl 
= implementation ada id end 
| implementation psdl_imp! end 


psdl_impl 
= data_flow_diagram [streams] [timers] [control_constraints] 
[informal_desc] 


data_flow_diagram 
= graph {vertex} {edge} 


vertex 


= vertex op_id [*:” time] 
-- time is the maximum execution time 
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edge 
6,99 


= edge id [“:” time] op_id “->” op_id 
-- time ts the latency 


op_id 

=j0("@ fidolict el hidehict |i) 
streams 

= data stream type_decl 
timers 


= timer id_list 


control constraints 
= control constraints constraint {constraint} 


constraint 
= operator op_id 

[triggered [trigger] [if expression] [reqmts_trace]] 
[period time [reqmts_trace]] 
[finish within time [reqmts_trace]] 
[minimum calling period time [reqmts_trace]] 
[maximum response time time [reqmts_trace]] 
{constraint_options} 


constraint_options 
= output id_list if expression [reqmts_trace] 
| exception id [if expression] [reqmts_trace] 
| timer_op id [if expression] [reqmts_trace] 


trigger 
= by all id_list 
| by some id_list 


timer_op 
= reset timer 
| start timer 
| stop timer 


initial_expression_list 
= initial_expression {“,” initial_expression} 


initial_expression 
= true 
| false 
| integer_literal 
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binary_op 


unary_op 


time 


unit 


real_literal 

string _literal 

id 

type_name “.” id [“(* initial_expression_list “)”] 
“(“ initial_expression “)” 

initial_expression binary_op initial_expression 
unary_op initial_expression 


= and | or | xor 
| eo | peace | om | “=” | pee | “/—” 
| ess | “<9? | nap oat | 663599 | Se | mod | rem | 663K 3? 


>? | oe, 99 


=not | abs | “*- + 


integer_literal unit 


= microsec 
| ms 

| sec 

| min 

| hours 


expression_list 


ce 99 


= expression {“,” expression} 


expression 


id 


= true 
| false 
| integer_literal 

| time 

| real_hteral 

| string_literal 

| id 

| type_name “.” id [“(“ expression_list “)”] 

| “(“ expression “)” 

| initial_expression binary_op initial_expression 
| unary_op initial_expression 


= letter {alpha_numeric} 


real literal 


= integer_literal “.” integer_literal 


67 


integer_literal 
= digit {digit} 
string_literal 


= 06666 {char} 666666 


char 
= any printable character except “}” 
digit 
= “Q .. 9” 
letter 
= ez 
eas pe Ae 
| 


alpha_numberic 
= letter 
| digit 
text 
= {char} 
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APPENDIX B. AFLEX SPECIFICATION FOR PSDL 


—_——*F © © © © © © © © © # @ 
eeo3oeo40eiee ee # e© © @# # @ 


ee epodl lex.) 

ae Un Le name (Wearlex Sspeciiveation fale for sEsvL parser 
See te-name > peal Plex. 

——SAuULnOr : Suleyman Bayramoglu 

-- Address : bayram@taurus.cs.nps.navy.mil 

==-sVate Created alia yy. lo | 

eoetase Update  vVicdrOce 24 23-53-05. 1990 = bayram} 


-- Machine/System Compiled/Run on : Sun4, SunOs 4.1, 
-- Aflex Ver. 1.1 (May 1990) 


ma eae ae ee ee Ce 


—-- Keywords >: lexical analyzer, parser, PSDL 


Ss ADsSlLract 

== Mies tilevis*the Aflex input rile £or PSDL Grammar, 
peor more information 

=—- refer to the file psdl lex.prologue 


ser ooOULcCe: /n/gemini/work/bayram/AYACC/parser/RCS/psdl lex.l,v $ 
weoRevisron:. 1.13: 5 

== Date: 1991/09/24 04;51713 5 

--SAuthor: bayram §$ 


—— Definitions of lexical classes 


Digit [O=2) 

cit Baie piece 
better(a-ZA-Z | 

Alpha ({ Letter) {Digit }) 
Blank[ \t\n] 

Texel (h) 


Se eu eae) 
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Queee |] 


oe 
oP 


ada|Ada|ADA { MYECHO; return (ADA TOKEN) ; } 
axioms | AXIOMS { MYECHO; return (AXIOMS TOKEN); } 
by{Blank}+all1|BY{Blank}+ALL { MYECHO; return (BY ALL TOKEN); } 
by{Blank}+requirements | BY {Blank} +REQUIREMENTS {MYECHO; return (BY_REQ_ TOKEN) ; } 
by{Blank}+some|BY {Blank }+SOME { MYECHO; return (BY SOME TOKENEE } 
cone col | CONTROL { MYECHO; return (CONTROL TOKEN} 
constraints |CONSTRAINTS { MYECHO; return(CONSTRAINTS TOKEN) ; } 
data|DATA { MYECHO; return (DATA TOKEN) ; } 
stream|STREAM { MYECHO; return (STREAM TOKERG® } 
GEScCripe ton | DESCR Ie Piel { MYECHO; return (DESCRIPTION TOKEIpaa 
edge | EDGE { MYECHO? return (EDGE TOKEN) ; } 
end|END { MYECHO; return (END TOKEN); } 
exceptions |EXCEPTIONS { MYEBCHO;, “return (EXCEPTIONS TOKEN) ; } 
exception | EXCEPTION { MYECHO> return (EXCEPTION TOKEN) ; } 
finish FINS { MYECHO;, return (FINISH TOKENS } 
within|WITHIN { MYECHO; return (WITHIN TOKEN ae 
generic|GENERIC { MYECHO; return (GENERIC TOKEN} Ras, 
graph|GRAPH { MYECHO; return (GRAPH TOKEN) ; } 
hours | HOURS { MYECHO; return (HOURS TOKEN) ; } 
ite g pl se { MYECHO; return (IF TOKEN); } 
implementation | IMPLEMENTATION { MYECHO; return (IMPLEMENTATION TOKEN) ; } 
mOpqinlye alee wl aka | Ip bali 24 bea Bp 4 { MYECHO; return (INITIALLY TORE } 
input | INPUT { MYECHO; return (INPUT_TOKEN) ; } 
keywords | KEYWORDS { MYECHO; return (KEYWORDS TOKEN) ; } 
maximum |MAXIMUM { MYECHO; return (MAXIMUM TOKEN) ; } 
execution | EXECUTION { MYECHO; return (EXECUTION TOKEN) ; } 
time | TIME { MYECHO, return (TIME TOKEN) ; } 
response ]|RESPONSE { MYECHO; return (RESPONSE TOKEN: } 
microsec|MICROSEC|microseconds |MICROSECONDS { MYECHO; return (MICROSEC_ TOKEN), } 
minimum|MINIMUM { MYECHO; return (MINIMUM TOKEN); } 
calling{Blank}+period|CALLING{Blank}+PERIOD {MYECHO; return (CALL PERIOD TOKEN) ; } 
min|MIN|minutes|MINUTES { MYECHO; return (MIN_TOKEN) ; } 
ms|MS|milliseconds|MILLISECONDS { MYECHO; return (MS TOKEN), } 
operator |OPERATOR { MYECHO; return (OPERATOR TOKEN) ; } 
OULpUE /OULTEUT { MYECHO; return (OUTPUT TOREN)s, } 
period|PERIOD { MYECHO; return (PERIOD TOKEN) ; } 
reset {Blank}+timer|RESET{Blank}+TIMER { MYECHO; return (RESET TOKEN} Ga 
sec|SEC|seconds |SECONDS { MYECHO; return (SEC TOKEN); } 
Specification SeReC Ih TeATION { MYECHO; return (SPECIFICATION TOKEN) ; } 
start {Blank}+timer|START{Blank}+TIMER { MYECHO; return (START TOKEN 
states |STATES { MYECHO;- return (STATES LORE ie. } 
stop{Blank}+timer|STOP{Blank}+TIMER { MYECHO; return (STOP TOKEN Gas 
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timer |TIMER 
triggered | TRIGGERED 


MYECHO; return (TIMER TOKEN) ; 
MYECHO; return (TRIGGERED TOKEN) ; 


ee ne, EE eee} 


“A rem” | nf REM” 


We em | UES ae | “MEPYXpY MYECHO, “return (EXP TOKEN 


4 


) 
MYECHO; return (REM TOKEN) ; 

) 

) 


mye LYE MYECHO, returm (TYEE TOKEN) ; 
vertex | VERTEX MYE CHO; return 4VERTEA TORBEN) ; 
Pane.”>| AND” { MYECHO; return (AND TOKEN); } 
mot =| OR” { MYECHO, return (OR. TOKEN); } 
Dxon. | KOR { MYECHO; return (XOR TOKEN); } 
Wye" { MYECHO; return (GREATER THAN OR EQUAL) ; 
ls { MYECHO; return (LESS THAN OR EQUAL) ; 
Sy ea { MYECHO; return (INEQUALITY) ; } 
Woyt { MYECHO; return (ARROW) ; } 
wo { MYECHO;. return: (‘="y?7 4 
Wa { MYECHO; return (‘+’); } 
woe { MYECHO; return (‘-'); } 
Wan {fe MYECHO;. -rsiirm (C82 o3 4 
wn (SMYECHO; “veturn ("°/")7 | 
Wel { MYBCHO;)- return (*6')7 } 
wc { MYECHO; return (‘*(‘); } 
wy { MYECHO; return (‘)’); } 
we (OMVECHO ; Srecturm {%[*);7 } 
Wye (SUIVECHO;Sretucn (olay 4 
wo ImMYECHO.. retumn « =" )> |) 
won {SMYECHO?. return (7,7); 4} 
wor (EMT SCHOO, return ("9 ) 7 4 
wn { MYECHO; return (‘|’); } 
WSr INMYECHO-sreturn (SJ 4 
we {oMYECHO -~réeturm (*< >). 
ped | "MOD fre CHO, sseturn atMOp svOnMEM).; 
{ 
{ 
Peas ABS: { MYECHO; return (ABS TOKEN); 
‘ret. |)’ NOT” { MYECHO;,. “return (NOT. TOKEN) ; 
true | TRUE (i MY ECHO. ceturn. (PRUE); 

{ 


Se 


false|FALSE MVECHO; "reuurn “(rAlonr ):; 


{Letter} {Alpha} * { 


MYECHO; 
Bie Prev cacokKen — the 10 Token, 
the id token >= to a(psdl lex dfa.yytext); 


return (IDENTIFIER); 
} 


FOUOLe | {StrbLit}*{Ouo0te} { 
MYECHO; 
ENeCmoE tT IO Okemo, eon ai psd| lex Craayytexk) | 
return (STRING LITERAL) ; 
} 


{Int } { 
MYECHO; 
the integer token := to_a(psdl_ lex dfa.yytext}); 
return (INTEGER LITERAL); 
} 


pl olan, steer ce Gah ce { 
MYECHO; 
elites eee ce) cien s= to a(psdl lex diatyyee 
return (REAL LITERAL) ; 
} 


Ue ee xt { 
MYECHO,; 
the text token >= to_a(psdl lex dfa.yytext); 
return (TEXT TOKEN) ; 
} 


eel { MYECHO; = Eamenium, } 
wee! { MYECHO ;snubas, } -- ignore spaces and tabs 


SS —- user supplied code 
=— Sater = log 05724704251): ie 
== SRCViISTOn eels ao 


with Psdl Tokens, A Strings, Psdl Concrete Type Pkg; 
use Psdl Tokens, A Strings, Psdl Comerete Type Pko; 
use Text Io; 


se Psdivhex SPEC 


> es e@& @ @ @© @& © © @ @ © © © @ 


package Psdl Lex is 


Lines * FOS tei vie =a le 
Num Errors : Natural = (0) 
last bale 2) lext. lO .Filew iyec, 


qe 


—- in the case that one id comes right after another id 
-- we save the previous one to get around the problem 
—-~ that look ahead token is saved into yytext 

ee litle PrOolemiocCcUrsain Che Optional! Generic param 2. 
== an optinal type declaration comes after that. 

=. LOENTIFTER 


The Prev Id Token: Psdl_Id 
The Id Token ered. ld 


Psdl ld(Asotrangs. Empty); 
Ped lid (A Strings sempty) ; 


-- STRING_LITERAL 
Pee oering PrOonen > EXpression <= Expression (A Strings .empty) ; 


Bo LNTEGER LITERAL. (psdl_id or expression) 
ihe Integer Token: A String a= oer ings EmpLy, 


gee tebe LITERAL 
Mae Real Toren > Expression 


BxpreecsioOn(e Strings -EmpLy) ; 


Soe ext TOKEN 
Pie Texc Token ; hex 


Empty Text, 

Last Yylength: Integer; 

-- This procedure keeps track of the line numbers in 
Seetie input tile, by using the vqlobal variable “lines” 
procedure Linenum; 

—-- This procedure writes the input file ina file 

=— <input—-file>.lst.lst’ prepending the line numbers, 


procedure Myecho; 


-- Lexical analyzer function generated by aflex 
PeMection. YYlex return Token; 


end Psdl Lex; 


= Psdl Lex BODY 


oo © @ @ «© e©# © @# @# @# @ e# e8# @# @ 


package body Psdl Lex is 
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procedure Myecho is 
begin 

Text 10.Put (List Faille wee sails gb eee ee cen 
end Myecho,; 


procedure Linenum is 


begin 
Text_1Io.Put (List Fate, Integer Image (Lines 7 ites een 
Lines := Lines + 1; 


end Linenum; 
# # 


end Psdl Lex; 
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APPENDIX C. AYACC SPECIFICATION FOR PSDL 


=—— ¢ € 6 # © 6 © 6 «© Fe 8 
ee ee © © © © we ew 8 


=— psdl..y 

=—-— Unit name MAvacecu Speci caLlon. 1116 
-- File name = psdl.y 

eet hor : Sileyman Bayramoglu 

-—- Address >: bayram@taurus.cs.nps.navy. 
-- Date Created ea oo od 

-- Last Update wa MOMmnepae sect Og tS: 199] 


-- Machine/System Compiled/Run on : Sun4, SunOs 


em ae ae ae a ea 


=—— Keywords parser, PSpL 


= Aostract 
a DHi stile as the ayacc 2nput file for PSDL 
--sreter to the file psdl.y.prologue 


for PSDL parser 


mat 


- bayram} 
4.1, Ayace Ver. 120 (May 1988) 


grammar, For more information 


--SSource: /n/gemini/work/bayram/AYACC/parser/RCS/psdl.y,v § 


~= Revision: 1,l°S 
eagovace 1991/09/24 06:04:35 $ 
--SAuthor: bayram $ 


a ee ee a 


—-— /* token declarations section */ 

peewee. Gee sy = 8 Sie ae Soe ae ||" 
$token ARROW 

$token ARROW 

$token TRUE FALSE 

token ADA TOKEN AXIOMS TOKEN 

%token BY ALL TOKEN BY REQ TOKEN BY SOME TOKEN 
ttoken CALL PERIOD TOKEN CONTROL TOKEN 


ttoken CONSTRAINTS TOKEN 
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mm es es es ee a 


token DATA TOKEN DESCRIPTION TOKEN 

ttoken EDGE TOKEN END TOKEN EXCEPTIONS TOKEN 
token EXCEPTION TOKEN EXECUTION TOKEN 
$token FINISH TOKEN 

ttoken GENERIC TOKEN GRAPH TOKEN 

$token HOURS TOKEN 

ttoken IF TOKEN IMPLEMENTATION TOKEN 

token INITIALLY TOKEN INPUT TOKEN 

ttoken KEYWORDS TOKEN 

$token MAXIMUM TOKEN MINIMUM TOKEN 

token MICROSEC TOKEN 

token MIN TOKEN MS TOKEN MOD_ TOKEN 

token NOT TOKEN 

$token OPERATOR TOKEN OR TOKEN OUTPUT TOKEN 
$token PERIOD TOKEN 

token RESET TOKEN RESPONSE TOKEN 

$token SEC TOKEN SPECIFICATION TOKEN 

token START TOKEN STATES TOKEN STOP _TOKEN 
token STREAM TOKEN 

ttoken TIME TOKEN 

ttoken TIMER TOKEN TRIGGERED TOKEN TYPE TOKEN 
$token VERTEX TOKEN 


$token WITHIN TOKEN 


token IDENTIFIER 
$token INTEGER LITERAL REAL LITERAL 
ttoken STRING LITERAL 


token TEXT TOKEN 
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$start start symbol 


operator precedences */ 


left means group and evaluate from the left */ 


AND _TOKEN OR_TOKEN XOR_TOKEN LOGICAL OPERATOR 
‘<* %>* ‘=! GREATER THAN OK EQUAL LESS THAN OR EQUAL INEQUALITY RELATIONAL OPERAT 
‘+/ %-"! *&@* BINARY ADDING OPERATOR 


UNARY ADDING OPERATOR 
‘“/" MOD TOKEN REM TOKEN MULTIPLYING OPERATOR 
EXP TOKEN ABS TOKEN NOT _ TOKEN HIGHEST PRECEDENCE OPERATOR 


== this. is an artitieial ‘startesymbol, 


twith Psdl Concrete Type Pkg; 


$use 


type TOKEN CATEGORY TYPE is 


type YYStype 


PsaleConcrete i Type Pkg, 


(INTEGER LITERAL, 
PSDL ID STRING, 
EXPRESSION STRING, 
TYPE NAME STRING, 
TYPE DECLARATION STRING, 
TIME STRING, 
TIMER OP 1D STRING, 
NO_ VALUE) ; 
(Token Category TOKEN CATEGORY TYPE := NO VALUE) is 
record 

case Token Caregory 1s 

when INTEGER LITERAL => 
Integer Value INTEGER; 

when PSDL ID STRING => 

Psdil id Value Psdl Id; 


when TYPE NAME STRING => 


Type Name Value Type Name; 


when TYPE DECLARATION STRING => 


Type Declaration Value Typesleclaration,; 


when EXPRESSION STRING => 


Expression Value Expression; 


when TIME STRING => 


a 


fOr nial Zak von 


OR 


$% 


Time Value < Millisec; 


when TIMEREGr Pees t hice 
Timer Op ldjValve@. stamer Ope la, 


when NO_ VALUE => 


start symbol 


psdl 


White Space : Text := Empty Text; 
end case; 
end record; 
—--/* package Psdl Program Pkg is ie 
=e new Generic Map Pkg(Key => PSDL_ ID, Result => COMPONENT (Pao ee = 
--/* type PSDL_ PROGRAM is new Psdl Program_Pkg.Map; 7 * 
--/* Vis 
==/* stype Componene, Ptr ws aececc PSDi CeMeenENT, ie 
ae Wee 
== 5° A psdl program is an environment that binds ye 
—-/* psdl component names to psdl component definitions. jes 
== * The operations on psdl programs are the same ies 
Saf as the operations on maps. is 
{ The Program: = tmee srediee rogram, | 
psdal 
, 
psdl 
{the component per <— new PSPLECOMPONENT, + 
component 
{ 
--/* the created object should always be constrained ef 
=--/* since object is a record witneciscrimemancc. a 


The Component Ptr := 
new Psdl Component 
(Category => Component Category (The Component), 
Granularity => Component Granularity (The Componencuyy: 


The Component Ptr.all := The Component; 
Bind Program (Name (The Component), 

Tne Conponene fic, 

The Program), 
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Somponent 


data_type =) = subtype Data [ype is PSDiL COMPONENT er 4 


aoe ha (category => PSDL TYPE) a 
| 
operator =-/* subtype Data. Type is PSDL COMPONENT iy A 
cae (category => PSDL OPERATOR) ae 


data type 


TYPE TOKEN IDENTIFIER 
{ 


$$ := (Token Category => Psdl Id String, 
Psd] Id Value => The _Id Token); 
The Operation. Map := Empty Operation Map; 


type spec type impl 
{ 
= econseruct, the psal type using global: variables 
—-- psdl component record fields that have default values 
-- are passed as in out parameters, so that after 
== building tha component, they are initialized 
-- back to their default values. 


Build Psdl Type(s3.Psdi Id. Value, 
The Ada NAme, 
ThesMedel, 
Thesbara SueLucture, 
The Operation Map, 
The sly pe Leen Par, 
The Keywords, 

The Deserrpeion, 
The Axioms, 

is Atomic Type, 

The Component) ; 


1) Teg oi= 


SPECIFICATION TOKEN optional generic param optional type decl 
op_spec_list functionality END_TOKEN 


--/* C.Gen Par:Type Declaration:=Empty Type Declaration */ 
Opeional generic param 


GENERIC TOKEN 


Type Decl Stack _Pkg.Push (The Type Decl Stack, 
Empty Type Declaralicn)| 
TypelspeceGceng ear = — TRUE, 


list of typerdec! 
{ 
Type Decl Stack Pkg.Pop(The Type Decl Stack, 
The Type Gen Par); 
Type spec Gen Pare — Pals, 
} 
--/* empty */ 


Optional Gyperdeall 


Type Decl Stack Pkg. Push (The Type Decl Stack, 
EMipty ar ype Declaration); 


list of Sty pesace! 
{ 
Type Decl Stack Pkg.Pop(The Type Decl Stack, 
ThesModed) s 


op spec fase 
Op spec 1ist 


{ The Op Ptr := new Operator; §} 


OPERATOR TOREN IDENTIFIER 
{ 
9$ := (Token Category => Psdl Id String, 
Psdl id Valve —- Pies] daloren):, 
—-- create a new operator (composite) to put in ops map 
-- make it composite because we don’t know what 
—=" the GCranvdarity 1s at thas porn. 


The Op Ptr (= mew Operator (Cateqory => Psdl Operates, 
Granularity => Composite); 
Operatonyspec 


{ 


Build Psdl Operator (55. Psdletds Vale, 
The Ada Name, 
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Tnewocen rar, 

The Keywords, 

The Mescripeion, 
The Axioms, 

ine Input, 

The Output, 

ine State, 

The Initialebxpressi on, 
THe EXceptions, 

The (specatied Met, 
The Graph, 
he osc reams, 

The Timers, 

The Trigger, 

The Exec Guard, 

The Out Guard, 

The Excep Trigger, 
ne Timer “Op, 
Lemire x, 

The Fw, 

The Mcp, 

THeEIMreE, 

The Impl Desc, 

is Atomic => False, 
The JOpr =7 ine Operacor); 


ine (Op Ptr. allio — The Operator: 
Bind Operation 9(S5.Psdl Id Value, 
MmesOecrcr, 
The Operation Map); 
} 
=—=—/§* “empe yu / 


Operator 


OPERATOR TOKEN IDENTIFIER 
{ 
$$ := (Token Category => Psdl Id String, 
Pe@ieid Value w= the, ld) Token); 


Operator spec. operator impl 
{ 
=—COnStELUCE the psdl operator 
-- using the global variables 
Build Psdl: Operator(s2..Psdl fd Value, 

The _Ada Name, 
The Gen Par, 
The Keywords, 
The Veseripctioen, 
The Axioms, 
TRe.[hpueT, 
The Output, 


8 


Operacor Spee 


interface 


attribute 


SPECIFICAZ TON TORE 


The otace, 

The Initial Expression, 
ihe Excepr ions, 
The Specitted Met, 
The Graph, 

ime oLreats, 

The Timers, 

thes trigger, 

The Exec Guard, 
Tier OU em Glarar 

Mie Excepalauigge:, 
Pie ltine slop, 

te eis, 

The Fw, 


pie Mec, 

ihe inp) Desc, 
FPssAconicuCperavor, 
The, Componene):; 


interface Tunctionalicy  iNperonken 


interface attribute reqmts trace 


——/* empty *~/ 


-- /* C.Gen Par: Type Declaration: —Emptyelype Declararaam 


GENERIC TOKEN 


{ 


list of type deel 


{ 


-- /* O.Input: Type Declaration:=Empty Type Declaration */ 
INPUT TOKEN 


{ 


Type Decl Stack Pkg-FPush (ihesivpe Decl stack, 


Empey ol ype Declaration), 


Type Decl Stack) Pkg. Pop ( Themlypembec tote, 
The GenlPaw, 


Type Decl Stace (Pe gyrush themlyee Decl stack 


Enptyelype Declaration), 
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ee 


Ise os weype cece! 
{ 
Type Decl Stack _Pkg.Pop(The Type Decl Stack, 
Ine i npuey 


-- /* Q.Output: Type Declaration:=Empty Type Declaration */ 
OUTPUT TOKEN 
{ 
Type Decl Stack _Pkg.Push (The Type Decl Stack, 
Empty Type Declaration) ; 


Pastot “ype dec! 
{ 
Type Decl Stack Pkg.Pop(The Type Decl Stack, 
Tie, Oucpur 


=— /* ©.State: Type Declaration:=Empty Type Declaration */ 
STATES TOKEN 
{ 
Type Decl Stack_Pkg.Push (The Type Decl Stack, 
Empty Type Declaration), 
Idw seq Pko-tmpcy (The Id Seq); 
~- empty id seq, to use with init map 


Pisv Ot Gype dec! 
{ 
Type, Deel Stack Pkg. Pop(ihe Type Decl Stack, 
iMemstate) ; 
(Meo np iewMap le segs. =) newla oedq, 
== Hold the id -s)tor ane map. 


= £7 O,1nie: “inte Mape=empty (nat tap ay 
-— /* Init_Map is Map(Psdl Id, Expression) hy 
INITIALLY TOKEN 
{ 
Init ceap Seq stack Pko.Push( The init exp seq Stack, 
Empty Exp Seq); 
The Expression String := Expression(A Strings.Empty) ; 


=>" /* SExpreseicn is new A Strings-:A String */ 
imitial expression list 
{ 
inch ap Seq Stack Pkg.Pop{The-Ilnitcomxp Seq ustack, 
Thecinwve Expr Seg); 
Binawinttiel state (Ihelseace, 
The Init Expr Seq, 
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The Interal haxpressvon):, 


-- /* 0.Excep: Id Set:= Empiysidivocr, 
| EXCEPTIONS TOKEN 


{ 
Id Set PkoEmpry (ikeeldeeeu:, 


nie pele ol che 
{ 
Id) Set Pkg -Assign (The Exceptwons, ihe lavseu), 


—-=— /* ©,.Smet: Millisec * / 
-- /* everything is converted into msec */ 
| MAXIMUM TOKEN EXECUTION TOKEN TIME TOKEN time 


{ 
The Specified Met := $4.Integer Value; 


-- /* initialization is made by the callers of this rule 


lust ot (bypenaec! 
list of type idecl ~) ieyepencdect 


| type decl 
type decl 
: { 
The Ia Set >= impty lasset, 
} 
id: bist ee 
{ 
The Expression String := The Bxpressitonmserimgea. 


Id Set Stack Pkg.Push(The Id Set Stack, Ihe 1auSet); 


type name 
{ 
Type Decl Stack Fko-Pop( the lype Dec Misrack, 
Temp Type Decl); 


--~/* Bind each id in id the id set to the type name 
--/* in the internal stack($5), return temp type decl 
Bind Type Declaration ( 
id Set Stack Pho. Top (ihestdgeersorach 
$5.Type Name Value, 
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We 


i 


we 
ao 


We 


Temp Type Decl); 


Type Decl Stack_Pkg.Push(The_ Type Decl Stack, 
Temp Type Decl); 


--/* pop the stack after bind */ 
iesecwocackae i ¢-Fop(The 1d Ser Stack); 


type name 


IDENTIFIER 
{ 
$5 := (Token Category => Psdl Id String, 
Psdl Id Value => The Id Token); 
The Expression String := The_Expression String & * ~ 


& Expression (The Id Token); 


Type Decl Stack Pkg.Push(The Type Decl Stack, 
Empty Type Declaration) ; 
MhevaxSp.essi on String.+— The Expression Strang, 6 (7; 


Pest ef type dec! 


New Type Name_ Record; 
e2-Psdi lla Value; 


The Tyee Name 
The Type Name. Name 
The Type Name.Gen Par 
i type Decl Stack Pkg. lop (The: Type Decl Stack); 
S$ i= (Token Category => Type Name String, 
Type Name Value => The Type Name) ; 
Tvepe Dect sseacw ie kg Pop The-Type Deel] Stack); 


I 


ba as 


i) [he ee precsi On String: ot= Ine Expression String. 4 “| 


| IDENTIFIER 
{ 


—- this an awkward way of working around the 
—-— problem we get when we have two identifiers 
--~ one after another 
Pini ype spec Gen Par and 
not id Sec Pko. Member (The Prev 1d Token, 
ine ld Sec) then 
ihe Type Name := 
New Type Name Record” (The Prev Ted Token, 
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Ww. 


Empty Type Declaration), 
The Expression String := The Expression String & ~™ ™ 
& Expression (The Prev Id Tokeme 
else 
Theaiyoe Name =y= 
New Type Name_ Record’ (The_Id_ Token, 
Bmpe yr lypesDeclarati1on), 


The Expression String :— Thestxpression (Seeing). 
& Expression (The Id Token. 
end if; 
99 := (Token Category => Type Name String, 


Type Name Value => The Type Name); 


1 esi. 
nls WE 2 
{ The Expression String := The Expression String sa) 7 ssa 
IDENTIFIER 
{ 
Nel Sect rkg Add (ihe Mculoten, ihe pidisce ., 
ihe String (7=— Thewseringes) 7 soe) Reman leer, 
Id Seq Fkg-Add (The lal lcken, meme roed 
The Expression String := The Expression String <4 3) 
& Expressien( The ladiloken), 
} 
| IDENTIFIER 
{ 
ia Set Pkg Add (Themlagic cen hom cme), 
[hegstring =. -eihe) ldiieken, 
lid Sequrkg 40a (Ihe lawl cken, thesia sca, 
The Expression String) :— The ExpresclOnece ring a. 
& Expression (ies ldaicken), 
} 
HeQmuS pe kage => lgnered In This Version 
: BY REQ TOKEN id list 
| 
’ 
functionality 


keywords informal desc formal desc 
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keywords 
KEYWORDS TOKEN 


{ 
Id Set Pkg.Empty(The_Id Set); 


Pen S © 
{ 
Id Set Pkg.Assign (The _Keywords, The sid set; 


{ The Keywords := Empty Id Set; } 


Pieormal “cesc 
DESCRIPTION TOKEN TEXT TOKEN 
{ 
The Deseription := The Text Teken; 
The Umpl dese := The Text_Token; 


formal desc 
axioms TOKEN TEXT TOKEN 


{ 


The Axioms:= The Text _ Token; 


type_impl 
: IMPLEMENTATION TOKEN ADA TOKEN IDENTIFIER 
{ 


Ts Acromic llype += True; 
The Ada Name := Ada Id(The Id Token); 
} 
END TOKEN 


| IMPLEMENTATION TOKEN type name 
{ 
ES conte, Type. :— False; 
The Data Structure := $2.Type Name Value; 
} 


Op_impl_ list END TOKEN 
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op ampl lise 
Op imp leerce 
{ The Op l Ptr := New Operatic 


OPERATOR_TOKEN IDENTIFIER 
{ 
99 i= (Token Category => Psdl_ Id String, 
PsdleidiVvalne => The Id Teken); 
} 
operator impl 
{ 
-- add implementation part to the operator in the operation map 
Add Op Impl To Op Map($5.Psdl_Id Value, 
The Ada Name, 
Is Atomic Operator, 
The Opera ronsMan, 
The Graph, 
ThewSereams, 
Tie) Time cs, 
The Trigger: 
The ExeceGuard, 
The Out Guard, 
Diem Excepiriggen, 
Thess lume rsp, 
Diesen, 
The Fw, 
The Mcp, 
The Mag, 
These inp! Desc a, 


Operacer simp 
IMPLEMENTATION TOKEN ADA TOKEN IDENTIFIER 
{ 


Is Atomic Operator := True; 
The Ada Name == Ada Td\The laglcken 
} 
END TOKEN 


| IMPLEMENTATION TOKEN psdl_impl 
{ 


Ps Aten ec Operator :—- False, 


} 
END TOKEN 


psdl impl 
data flow diagram streams timers cont releeonst rains 
{ The Impl Desc := Empty Text; } 
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iniorumal desc 


data flow_diagram 
{ The Graph := Empty Psdl_ Graph; } 


GRAPH TOKEN vertex list edge list 


--— /* Time Is The Maximum Execution Time */ 
Vertex 1ist 
vertex list VERTEX TOKEN op_id optional time 
{ 
The Graph := Psdl Graph Pkg.Add Vertex ($3.Psdl_ Id Value, 
The Graph, ~94.linteger Value); 


-- /* Time Is The Latency iy 
edge list 
edge. list EDGE STOREN IDENTIFIER 
{ The Edge Name := The Id Token; } 


optional time’ op 1d ARROW op id 
{ 
The Graph == Pedi Graph Pkg.Add Edge(>5¢.Psdl 1d Value, 
»e.Psdl id) Value, 
The Edge Name, 
The Graph, 
So si Meeger Value), 


op_id 
PENT oY LER 
{ 
So *= (Token Category => Psdl Id String, 
Psdl Id Value => The Id Token); 
} 
opt arg 
{ 
$$ := ( Token Category => Psdl Id String, 


Psdl Id Value => $2.Psdl Id Value 
& $3.Psdl1 Id Value ); 
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opt_arg 
{ The String := Psdl fd(AlS erings impey) 


“(> Opt Tena tour sie 
{ 


$5 := ( Token Category => Psdl Id String, 
Psdl Idjvelue — 75) See taemse ring); 
The String :-— PsdleidiAs strings Empey), 


‘|? optioned abies 
{ 


$3 := ( Token Category => Psdi id String, 
Psdl id Value (254. Psd idevalue 
Pls  & Thevseringite. |) so 
} 
{ $5 := ( Token Category => Psdl Id String, 


Pedi id Value [78 card Arserangs nee ee 


Optional id Tis 
Ca Si 


optional Teaime 


*;*" Gime 
{ 
S$ := (Token Category => Integer Literal, 
Integer Value => $2.Integer Value) ; 
} 
{ 5$5:= (Token Category => Integer Literal, 


Integer Value => 0); 


streams 
DATA_TOKEN STREAM TOKEN 


{ 
Type Decl Stack Pk¢o-Push (The Type Neeltesecey 
Empty Type Declaration), 


[iT SGEOt ey pemdec. 
{ 


90 


Type Decl Stack PkKg.Pop(The Type Decl Stack, 
the Streams); 


me 


-~-/* The order of id’s is not important, so */ 
--/* we use laeset eas the date structure Lig 
--/* to store the timers. as 


me ee ae a ee 


timers 
TIMER _TOKEN 


{ 
Hae Ser sero Empey (The 1d ser); 


Id Set uPkg- Assion(The Timers, fne Id Set); 


Ta sseterko- Asscigniihe Tamers, Empty Ed Set); 


Gone rol Constraints 
CONTROL TOKEN CONSTRAINTS TOKEN 
{ 


The Operator Name := The Id Token; 

The 7) Boge. t= Empty Trigger Map; 

the ve. >= Empty Timing Map; 

the ik w >= Empty Timing Map; 

The Mcp -= EMPEY Timing Map; 

The Mrt >= Empty Timing Map; 

The Exec: Guard >= Empty Exec Guard Map; 
ihe Out Guard := Empty Out Guard Map; 

The Excep Trigger := Empty Excep Trigger Map; 
Tie Timer Op = EMpty limer Op Map, 


} 


Const Caines 


Constraints 
Constraincs OFLRATOR TOKEN IDENTIFIER 


{ 
The Operator Name := The Id Token; 


Ope atrigge: Opt Period Opt Finish Within 
OpesMcp OpeeMrte Constraint, Options 


9] 


| OPERATOR TOKEN IDENTIFIER 


{ 
The Operator Name :—] The laiiteken, 


Opt Triggér Opt Period Optsbinichavithin 
Opt Mcp Opt Mrt 


constraint options 
constraint options OUTPUT TOKEN 


{ 


(he id Sees). — Eupe ya idise =, 
The Expression String :-= Expression (A Sstrangs Empey), 
The Output _Id.Op 7— They Cperatora ame, 


id list IF_TOKEN 


The Expression String <= Expression (A Strings. Empty), 


GxXPression —reqmes trace 


{ 


-— Begin Expansion Of Foreach= loop Macro, 
declare 
procedure Loop Body id sa. od ald) sic 
begin 
The OutputGeld Stream, — sud, 
Bind Out Guard (The sOutpueald, 
The Expression String, 
The OucwGuar days, 


end Loop Body; 
Prececure Execute  LoOep is 
new Id Set) Pko .Generic Scan (ieop Body); 
begin 
ExeGucenboco (ines (d (Seu); 
end; 


| eonstraint oeptions EXCEPTION TOKEN IDENTIFIER 
{ 


29 += (Token Category => Psdl ldystring, 
Pedl 1¢ Value => Thetlaelecen): 
The Expression String :=sExpression(Agererings. Empty); 


opt_if predicate reqmts trace 


{ 
[hes <cepe cece := The Operator Name; 
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The Excep Id.Excep := 54.Psdl Id Value; 
Paoncdsbacene ry gger | the-Excep.id, 
The Expression votring, 
THeLExcep. Tragger) 7 


[ReEOnStraint Options timer op IDENTIFIER 
{ 


Soe = lonen Cavegory => Psdl- ld String, 
Psal id Value “=> The Id Token); 
The sExpressicon string == Expression(A strings. Empty) ; 


Opt if predicate reqmts trace 
{ 
The.Timer Cp Record.Op id 
The Timer Op Record.Timer fd 


MN 


22.Timer Op Id Value; 
54.Psdl id Value; 
The Expression String, 


The timer Op Record.Guard 


Tamer Op seule khaiAdd (The Timer Op Record, 
Thies line: Op, set); 
Bind Timer Op( ihe Operator Name, 
ihe. Timer Op Ser, 
The Timer Op); 


Coie trigger 
TRIGGERED. TOREN tragger 
{ 


IneVExXpPEeSSion String  -= Expression(A Strings. Empty) ; 


SpEa tt predicate reqmus, trace 
{ 
Bind Exec Guard(The Operator Name, 
The Expression String, 
ihe sexe Guera); 


trigger 
Br ALL TOKEN 
{ 


the wd Set == Empty 1d Ser; 
} 
ide lise 
{ 
Tie TE Moggers she ecord.o |e = By All; 
The Trigger Record.Streams := The Id Set; 
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Bind Trigger( ihe OperaroceName, 
iiewieigger wheecord, 
Tres trrgqger i; 


| BY SOME TOKEN 
{ 


The tassee 3: — Empey  felsecc, 
} 
dels i 
{ 
The Trigger Record. Tt >= By Some; 
The Trigger Record.Streams := The Id Set; 


Bindoitagger( The seperarer shame, 
ine Teroge cekecerd, 
Them er qger = 


{ =—— we don’t Care what Gs in Ene 24a set 
The Trigger skecord- ie := None; 
the, trigger Record. strcans )) sa 0emlauoce, 


Bind Triagges (lhe “eperator Nene, 
The Leiggers.ecora, 
thewirigger 


Opt period 
PERIOD TOKEN Time Regqmts Trace 
{ 
Bind Timing(The Operator Name, 
93.Integer Value, 
The Per); 


opt finish within 
FINISH TOKEN WITHIN TOKEN time reqmts trace 
{ 
Bind Timing (Them@eeravor Vane, 
S3alnveger Value, 
The Fw); 
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opt mcp 
MINIMUM TOKEN CALL PERIOD TOKEN time reqmts trace 
{ 
Bind Timing (The Operator Name, 
$3.Integer Value, 
The. Mep) ; 


Opt Mrt 
tax oces> time time. reqmis trace 
{ 
Band Timing (ihe Operator Name, 
$3.Integer Value, 
tie cMce 


Max resp Cime 
MAXIMUM TOKEN RESPONSE TOKEN TIME TOKEN 


Elmer Op 
RESET TOKEN 
: { 
$$ 


(Token Category => Timer Op Id String, 
Timer Op id Value => Reset); 


| START TOKEN 


{ 
$9 


(Token Category =? Timer Ops layour ing, 
hime joo ld Value => Start)? 


| STOP TOKEN 
{ 
$$ := (Token _Category => linereop ld 1st rang, 
Timer Op Id Value => Stop) ; 


opt if predicate 
Ib TOREN expression 


mee ce ee ee a eae ae ae 


-- /* We Add Each Expression In The Init _Expr Seq To Preserve The */ 
-- /* Order Of Expressions Corresponding Each State. This Sequence */ 
-=- /* Is Used By Procedure Bind Initial Expression Together sian a: 


-- /* States Map To Construct The Init Map. bi) 
-- /* Initialization Of The Sequence Is Done Before(By The Parent */ 
=k, nals 


re ie ee 


inltial expressicnmgrise 
initial ‘expressfon ylrci 


{ 


The Expression String :—-sixpression (A Strings. Empey jy 


inte idivexpression 
{ 
Init Exp Seq Stack Pkg Pop (ihe Intusixpusequetack, 
Temp Init Expr Seq); 
Exp Seq Pkg.Add ($4.Expression Value, 
Temp Init Expr seq) ; 
Init BAP Seq Stacker kg Pushiihne Inte sExprceqsstacs, 
Temp init Expr seq), 


The Expression String := Expression(A Strings.Empty) ,; 


dole ateulh ee jevs as alale 
{ 
Init Exp Seq Stack Pkg.Pop (The Init Exp Seq Stack, 
Temp ,inTeEsExpr seq); 
Exp Seq Pkg.Add ($2.Expression Value, 
Temp [nee rxe rece) 7 
Tnit Exp Seq Stack Pkg.Push (The Init Exp Seq Stack, 
Temp fini Exprlceq | 


a a a a i a 


-- /* There is one and only one initial state(initial expression) * f 
-- /* for each state variable mrhis (oneanceieOn ceurm onc Li 
-- /* expression to the parent rule corresponding to one state. shy 
-- /* This is done by using the internal stack o> 7conventl om oa 
-- /* the global variable the expression string also holds the a: 
-- /* value of the initial expression, and is needed to get the ay 


-- /* string value of the epression resulted by the type name and */ 
-- /* type _decl productions. The initial _expression_string ay, 
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Vardacle ws Inrtitalized an 
LO 7enNpEy “expression. 


same way by the parent rule oe 


me re we ee ee ee em ee ee ee we ee ce em re me mm em rm cm crm rm tm eee i a a eae ee ee 


mMoetal expression 


TRUE 
{ 
$9 := (Token Category => 
Expression Value => 
} 
| FALSE 
{ 
$$ := (Token Category => 
Expression Value => 
} 
| INTEGER LITERAL 
{ 
$$ := (Token Category => 


Expression Value => 


| REAL LITERAL 


{ 


$$ := (Token _Category => 
Expression Value => 
} 
) STRING LITERAL 
{ 
$$ := (Token Category => 
Expression Value => 
} 
| IDENTIFIER 
{ 
$$ := (Token Category => 


| type name 


Expression Value => 


Sa -7  Weinttaalizea The Expres 
/* At The Parent Rule, So Th 


-- /* Will Get The Expression String As An Empty Variable 


\ td 
« 


IDENTIFIER 
{ 


ihe Expression String := 


$$ := (Token Category 


Expression Value = 


7 


Bxpresslon String, 
TOIAd Prue. ja); 


Expression String, 
Tog Os aduce ais 


EXpression String, 
Expression( ihe integer Token) )7 


ERpression, SCring, 
The Real Token) ; 


Expression String, 
TRewoccang Token), 


Expression String, 


Expression (The Id Token) ); 


Aap 
wed 


Sleon String To Empty 
at Type Name Production 


ihe Expression. Su ring.& a7 i 
Expression (The Id Token) ; 

Ap rescionestrind, 
Ihegixpression Sering) 


| 


‘ 


type name 


{ 


- PIDENTIF LER 


$$ := (Token Category => Expression String, 
Expression Value => The Expression string same 
& Expression(The Tdi feken ae 
} 
wan 
{ 
Init Exp Seq Stack Pkg-=Push (Ihe vinit Exp scqgocach, 
Empty Exp lseq):; 
} 
Pn tidal express Tomei stme a) 
{ 
——/* we remove expression resulted by the */ 
--/* previous rule, since expression will */ 
=—/* be ConGatinactlon Gr Type name. —branas 
—-—/* value of previous preduction aay 
Init Exp Seq Stack Pkg Pop (ihe Inte kx py sequscac:, 
Temp Init Expr Seq); 
The Expression String := Expression(A Strings.Empty); 
for 1in 1 .. Exp Seq Pkg.Length (Temp Init Expr gseq) sie. 
i ee et nen 
The Expression String := The Expression String@ 
end if; 
The Expression String = 
The Expression String & 
Exp Seq Pkg.Feteh Temp iugeghxpriseq, 
end jlocp? 
Exp Seq Pkg.Recycle(Temp Init, Expr Seq); -—— throw iC 3ava7 
9$ := (Token Category => Expression String, 
Expression Value => $4.Expression Value & “(~ & 
The Expression String & ~)iog 
} 
‘(* anittalvexpressiren, 
{ 
$$ := (Token Category => EXpressionpoerimg, 
Expression Value => To A("(™) & 


~2- BxXpresston Value & 
TOT) 


initialvexpressi1ons loglop 


{ 
99 


;= (Token Category => Expression String, 


Expression Value => $1.Expression Value & 
92. HxXpression) Value): 


98 


" 


1); 


The lad expression Sprecy logical operator 
{ 
$$ := (Token Category => Expression String, 
Expression Value => $3.Expression Value & 
©4.Eapressiton Valve): 


[| initial expression rel _op 


iat taleexspressi on tprec, relational operator 
{ 
99 := (Token Category => Expression String, 
Expression Value => $1.Expression Value & 
$2.Expression Value & 
$3.Expression Value); 


ee nied ah expression Sprec unary adding operator 
{ 
S$ := (Token Category => Expression String, 
Expression Value => To A(“-") & $2.Expression Value); 
} 
i teen ta  e peeas LOR tprec unary adding operator 
{ 
$9 := (Token Category => Expression String; 


Beprecsion Value —> Tol At =”) 76 ~e Expression. Value); 


| anitial expression bin add op 


in 2teteal expression Sprec multiplying -operecor 
{ 
S$ := (Token Category => Expression String, 
Expression) Value —=> 91.Expression Value «© 
$2.Expression Value & 
93.Expression Value) ; 


[Wanttial expression bin mul op 


Pileial expression tprec multiplying operator 
{ 
$9 := (Token Category => Expression String, 
Expression Value => 5$1.Expression Value & 
92.Expression Value & 
93.Expression Value) j; 


oF 


| Snitial expressions h. es) Onn . 


Init lal expression tprec highest precedence operagar 
{ 
S$ := (Token Category => Expression String, 
Expression Value => $1.Expression Value & 
TReaA (BAR sane 


$3.Expression Value); 


| NOT TOKEN 


init tae xpress wom tprec highest precedence opera: 
{ 
--Exp_Seq Pkg.Add( The Expression String,) The Expuseq.. 
$$ := (Token Category => Expression String, 
Expression, Valuev—=-Stoge( OT) jigs 
92.Expression Value); 


| ABS TOKEN 
initial expression tprec highest precedence jopemaee 
{ 
95 := (Token Category => Expression String, 
Expression Value => To A(“ NOT ™“) & 
i $2.Expression Value) ; 
} 
’ 
log op 
- AND TOKEN 
{ 
$$ := (Token Category => Expression string, 
Expression Value => To AC” AND ")); 
} 
| OR_TOKEN 
{ 
$$ := (Token Category => Expression String, 
Expressieon Value => Foust? Oke 
} 
| XOR_ TOKEN 
{ 
$$ := (Token Category => Expression String, 
Expression Value => To Ai 20k "jae 
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rel Op 


bin _add_ op 


Mica 
{ 
$$ 
} 
SESE 
{ 
28 
} 
{ 
99 


— 
—S 


(loken Category => 
Expression Value => 


(Token Category => 
Expression Value => 


(Token Calegory => 
Expression Value => 


GREATER THAN OR_EQUAL 


{ 
S$ 


(Token Category => 
Expression Value => 


LESS THAN OR_EQUAL 


{ 


$$ 
} 
INEQUALITY 
{ 
$$ 
} 
ad 
{ 
$$ 
} 
{ 
$$ 


— 


(Token Category => 
Expression Value => 


(Token Category => 
Expression Value => 


(Token Category => 
Expression Value => 


(Token Category => 
Expression Value => 


EXBressSlon SUL ing, 
Worn (> < a) ie 


Expression String, 
sims 0 ame pega ie 


Expression String, 
To_A(“ = “)); 


Expression String, 
Pogae ws: 


Expression String, 
Toe (SOS) 


BXpEession String, 
To At i = a ae 


Expression String, 
Tee Blacks 2s Ne; 


Expression String, 
Tome eee) 1, 


Se a 


o$ 


bin _mul_op 


Val 


S$ 


S$ 


| MOD TOKEN 
{ 
98 


| REM TOKEN 


{ 
98 


time 
time ynunmber 


{ $$ 


thew 


| time number 
{ 
$$ 


Thies 


| time number 


:= (Token Category =- EXpPression SeEring, 
Expression Value s--- Dome. (Y ggg) |e 

>= (Token Category => EXPEGSSion oering, 
Expression Value => To A(” #31); 

2=8 (foken te acegory => Expression String, 
Expression Value —7 og (ame, 

;= (Token Category => Expression String, 


Expression Value => To A(™ MOD ™)); 


:= (Token Category => Expression String, 


Expression Value => To _A(“ REM “)); 


MICROSEC_ TOKEN 


>= (Token Category 2 integer sere rc, 
Integer Value => ($1.Integer Value + 999) /1000),; 
Time String. := 
To A(Integer’ Image ($1l.Integer Value) & “ microsec”); 
MS _ TOKEN 
:= (Token Category => Integer Literal, 
Inpe densa suc => 51.Integer Value) ; 


Time sering. -— 
To A(Integer’ Image($l1.Integer Value) & “ ms”); 


SEC_TOKEN 


So, t= (Token Category =) Integer Vitezal, 
Integer Value =? slvinteger Value * 1000); 
Pie. lems ssering i= 
TesAtinceger Image{sl.iInteger Value) & ~ ‘see; 


| time number MIN TOKEN 
{ 
S59 2= (Token Category => Integer Literal, 
integer Valine => o1.integer Value 7 60000); 
The slimecsString, = 
ToOLA (Integer Image(ol- Integer Value) & ~ min”); 


| tame numbex HOURS -TOKEN 
{ 
S» «= (Token Category => Integerviiteral, 
Pucegqer Value => Sl.Integer Value * 3600000); 
ine Time Strang :- 
Tes ineeger Image (ol Integer Value) 40° hrs); 


time number 
INTEGER LITERAL 
{ 
o> == MPoken Cavegory ~~ => ‘Integer [iteral, 
integers Value =~ Converts lo Digie(the Integer Token.3)); 


-=7" tive doaldzataon of Ines Expression Strang should 4+7 
==/* should be done by the parent ruies ey 
expression list 


expression ase ~; 


{ 


i 


The line, suring Bxpression{A. Strings. Empty); 
} 


expression 


ihe Time string 
} 


La 8) G2 ie = eg 


Expression (A Strings. Empty) ; 


emcee ce ce ce wc rw wm ew te te mm te te te ee we we a i we es ws es ms wc ee ee ee ww we ee es we ee we ww ee ee ee oe ee oe 


-- /* Expressions Can Appearwin Guards Appearing In Gentrol Constraints 7a 
-- /* These Guards Can Be Associated With Triggering Conditions, Or A 
-- /* Conditional Outputs, Conditional Exceptions, Or Conditional Timeceeeee 
-- /* Operations. Similar Te Initial Expression, Except That Time Valuesu 
-- /* and References To Timers And Data Streams Are Allowed. x / 


expression 
TRUE 


The Expression String := The Expression String & ~ [TRUER 


| FALSE 


The Expression String := The Expression String & ~ FADS Rae 


| INTEGER LITERAL 
{ 


The Expression String =) =) hese xpressi cigs 1 ng) or 
Expression( (ne Integer Teokems 


| time 


The Expression String := The Expressiongsering G) se 
Trew limes se cing, 


| REAL LITERAL 
{ 
The Expression String =.= The Expression 35.71 0g.c. lee 
The wheal loken, 


| STRING LITERAL 
{ 
The Expression String i= The Bxpression, Stramguss sae 
The Strung Tekem: 


| IDENTIFIER 
{ 
The Expression String *= ThesBxpressioniocring & “5 es 
Expression (Tae id uloken) ; 
} 
| type names 2 Vi PENTIF iE 


{ 
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The Expression String 


[Seype name “~ alVENTIE TER 


{ 


The Expression String 


ee ce 
| Ihes Expression String 
expression list ‘*)’ 


{ 


The Expression String 


Exp sequrkoq.Add( The Expression String, 


{ the Expression String 


as Ips 


je THe SExpression String 


expression 


|" expression log op 


{ 


ThecBApressi On ser ing 


The seApression String %.".” 
Expsession(The id Token); 


WN re 


Theseixpression ering 
Expression(The Id Token); 


The Expression String &° ”™ 


ihe Expression, Sering 8 jh |G 
The Bap Seq), 


Pe SExprTession String 6. ~ 


The Expression, Sl ring a") -"; 


The Expression String & $2.Expression Value; 


expression 


Mae x mreSiSTOnse red Op 


{ 


PRechapressl Oro ring 


prec logical operator 


The Expression String & $2.Expression Value; 


expression 


, Tne Expressron Sering 
expression 


| N47 
i) [besExpression String 


expression 


| expression bin add op 


{ 


tp lec re ablond WeoperaLor 


The? PXpression Suring 4£0°—" 7 


} 


tprec unary adding operator 


Die Expression tSering vs. “+ ; 


} 


prec unary adding operator 


% 


% 


The Expression String := 
The Expression String & $2.Expression Value; 


expression tprec binary adding operator 


expression bin mul_op 
{ 
The Expressi1Gnesering += 
The Expression String & $2.Expression Value; 


expression tprec multiplying operator 
expression EXPelOnny 


{ 


The Expression String := 


ne Expression: String] c) eee a) 
expression sprec highest precedence  operacem 
NOT_TOKEN 
{ The Expression String := To _A(™ NOT “); } 
expression tprec highest precedence Operaaa 
ABS TOKEN 
1 The Expression String): - slorA( (abs) 
expression tprec highest precedence operater 


Ssource: /n/gemini/work/bayram/AYACC/parser/RCS/psdl.y,v § 
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-- Sdate: 1991/08/28 10:04:49 §$ 


—— ee es ee eee ee i SS ie ie SE iS 8 ES LS ee eee ee ee eS SS ee ee ee 


ms ws a ee ee eee ee 
ce ee i iS Sie i ee i 


with Text Io, Psdl Component _Pkg, Psdl_ Concrete Type Pkg, Stack_Pkg, 
Psdl Graph Pkg, Generic Sequence _Pkg, A_Strings; 

use Psdl Component Pkg, Psdl_ Concrete Type Pkg, Psdl_Graph_Pkg; 

package Parser is 

-- Global Variable Which Is A Map From Psdl Component Names To Psdl 

—-— Component Definitions 


Pie we rogram -- Implemented 
Psd] Program; 


pe volecbal Variable For A Pedl Componenc (type Or Operator) 


The _ Component -- Implemented 
Esd! ‘Compenent; 


== Global Variable Which Points To The Psdl Component ‘(Type Or Operator) 
ie Component Prr -- Implemented 
Component Pur; 
-- Global Variable Which Points To The Psdl Operator (Type Or Operator) 


pine, Op. Pex —-- Implemented 
Op Ptr; 


—— used to construct the operation map 
the Operator : Operator; 


= Global Variable For. An Atomic Type -~- Implemented 


Phe 2Comic Type 
Atomic Type; 


=- Global Variable For An Atomic Operator 


The Atomic Operator == Implemented 
Atomic Operator; 


-- Global Variable For A Composite Psdl Type 


The Composite Type ~- Implemented 
Composite Type: 
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—-— Global Variable For A Composite Psdl Type 


The Composite Operator -- Implemented 
Composite Operator, 


-- /* Global Variables For All) Psdl” Components: 7 
-- Global Variable Which Holds The Name Of The Component 


The Psdl Name -- Implemented 
Psdl id, 


-- Global Variable Which Holds The Ada Id Variable Of Component Record 


The Ada Name —-~ Implemented 
AGapele, 


-- Global Variable Which Holds The Generic Parameters 


thevGen wear —-- Implemented 
Ty petDectaaaeLon, 


-- used for psdl type part (for not to mix with operat ten map, 
The Type (Gen Par =. Type Veclaratiren, 


-- Global Variable Which Holds The Keywords 


The Keywords -- Implemented 
fdiset, 

ine Deser pe. on —-- Implemented 
Text; 

The Axioms —-- Implemented 
Text 


-- A Temporary Variable To Hold Output Id To Construce Our Guard sae 


The. OUbem Gala 
Out eut ed, 


-- A Temporary Variable To Hold Excep Id To Construct Excep Trigger Map 


The Excep Id 
Excep Id; 
-- Global Variables For All Psdl Types: 
== Used For Creating All Types 


ihesMedes: —-- Implemented 
Type Declaratiecn, 
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the Operation Map 
Operation Map; 


== Used Por Creating Composite Types 


The ata structure 
Type Name; 


-- Global Variables For All Operators: 


fhe input 
Type Declaration; 


The Output 
type Declaration; 


Mes State 
Type Declaration, 


tne inatial Expression 
init Map; 


The Exceptions 
fad Tset,; 


Tie Tspeciiied Met 
MrElisec: 


-- Global Variables For Composite Operators: 


The -Graph 
Psdl Graph; 


The Streams 
Type peclaracion; 


tie iners 
hasseu; 


The Trigger 
Tergger Map; 


The Exec Guard 
Exec Guard Map; 


The Out Guard 
Out Guard Map; 


the Excep, Trigger 
ExXceps Trigger Map; 


Phe. me rp 


-~- Implemented 


Implemented 


Implemented 


Implemented 


Implemented 


Implemented 


Implemented 


Implemented 


Implemented 


Implemented 


Implemented 


Implemented 


Implemented 


Implemented 


Implemented 


Implemented 


Timer Op Map, 


ine bez 
Timing Map; 


The iw 
Timing Map; 


The 7Mep 
famang Map; 


Tema 


Timing Map; 


The vinp ia besc 
Text <= Empteyvelext, 
-- Is Used For Storing The Operator Names 
The Opezaror ame 
Psdlo id; 
-- A Place Holder To For Time Values 


The Time 
Maliasec: 


-- Implemented 


-- Implemented 


-- Implemented 


-- Implemented 


In Control Constraints Pauwe 


== Inue If The Psd! Component ic VAnsAvemt: fone 


Is Atomuc Type 
Boolean; 


Is Atomic Operator: Boolean; 


—-- Implemented 


-- Holds The Name Of The Edge (I.E Stream Name) 


The Edge Name 
Psdl Id; 


-- Implemented 


-- Renames The Procedure Bind In Generic Map Package 
-- Psdl Program Is A Mapping From Psdl Component Names 


—-- s« to Psd Componene Pefini trons 


Procedure Bandgeweqram 
( Name = Inge scdivid; 
Component : In Component Ptr; 
Program {eine ore 
Psaimr rogram, } 
Renames Bind; 
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-- Renames The Procedure Bind In Generic Map Package 
--— Psdl Program Is A Mapping From Psdl Id’S To Psdl Type Names 


Procedure Bind Type Decl Map 
(Shey = In) Psdl la; 
Result = in Type Name; 
Maco. Ln. Out 
Type Declaration ) 
Renames Type Declaration Pkg. 
Band: 


-- Renames The Procedure Bind In Generic Map Package 
-- Operation Map Is A Mapping From Psdl Operator Names To Psdl 
—= mo perator Detinilions:. 


Frocedure Bind Operation 
(keys: Im Psdilaid; 
Result. . in Opa ex, 
Mapes in Out Operation Map) 
Renames Bind; 


-- Renames The Procedure Bind In Generic Map Package 
-- Trigger Map Is A Mapping From Psdl Operator Names To Trigger 
—— ss. types (By Some, By All, None 


Peccedure Bind Trigger 
ekey in Pedi id; 
Pecsult a in Trtqgqer: kecord: 
Map iin Out. Trigger Map) 
Renames Tragger Map Pko.Bind,; 


-- Renames The Procedure Bind In Generic Map Package 
-— Timing Map Is A Mapping From Psdl Operator Names To 
-- .. Some Timing Parameters (Per, MEL, Pu, Mcp, 2) 


ProcesuLre Bind Timing 
(esey =: In Psd id; 
Result : In Millisec; 
Map. Ins Our ‘Timing Map > 
Renames Timing Map Pkg.Bind; 


-- Renames The Procedure Bind In Generic Map Package 
= Ont Guard) Map ls A Mapping From > Output Stream Id’ S To 
=“ Mirek pre so lLOneoe rings 


eA 


Procedure Bind Out yGuard 
( Key = In. Outpuceiad, 
Result : In Expression; 
Map : In Out Out Guard Map) 
Renames Out Guard Map Pkg.Bind; 


-- Renames The Procedure Bind In Generic Map Package 
=—- Init Map is A Mapping ' rom (sala oa. 
~—- “., EXPrESSion Strings 


Procedure Bind integiap 
(Keys (in Pscigta- 
Result : In Expression; 
Map; In Oteelore Map.) 
Renames Init Map Pkg.Bind; 


-- Renames The Procedure Bind In Generic Map Package 
-= Timer Op Map is A Mapping Hacm ss Pesci ecto ic 
mame ees) 8) eer i: 


Procedure Bind Timer Op 
(Key =. In Psddbeta, 
Results in Timer Op Set; 
Map: In Cut slimmer opuiap | 
Renames Timer Op Map Pkg.Bind; 


-- Renames The Procedure Bind In Generic Map Package 
—-— Exception Trigger Map Is A Mapping From’ Psdl “fas Ta 
“=. -BADPELESSLON SELrings 


Procedure Bind Excep Trigger 
("Key = in Excepera, 
Result : In Expression; 
Map >> ine Out 
ExXcCepulwigger Mapas) 
Renames Excep Trigger Map Pkg. 
Bae: 


-- Renames The Procedure Bind In Generic Map Package 
-- Exec Guard Map @§1s A Mapping Prom. Psdieid otc 
=— 4. Expression, Sheangs 


Procedure Bind Exec Guard 


Pokey : In Pedi ata, 
Result ()) "ine Expression, 
Mapes. an Cut Bmxece Cuard Map 


) 
Renames Exec Guard Map Pkg.Bind; 


-- Implements A Temporary Storage For Type Declaration. 


Package Type Decl Stack Pkg Is 
New Stack Pkg (Type Declaration) 


Use Type Decl Stack Pkg; 


Subeyee Type Decl Stack Is 
Type Decl Stack Pkg.Stack; 


oe oracle lcoharation And initialization Mor Type Declaration 
pie Type Decl Stack 


Type Decl Stack ;:= 
vee Decl stack Pho. Create, 


Package Id Set Stack Pk¢q Is 
New stack Pho (Id Set); 


subtype id Set Stack Is 
Teaser otack er kG. Stack; 


-~- A Stack Declaration And Initialization For Id 
Mevia ser Stack 
fay set Stack <= 
leeset stack Pho Create, 


pec lobal sbeclaration For Type id Ser 


Pier td Ser -~ Implemented 
he Seu; 


Giewia Set size 
Natural; 


Package Expression Stack Pkg Is 
New Stack Pkg (Expression) ; 


Subtype Expression Stack Is 
Expression Stack Pkq-Stack; 


-- A Stack Declaration And Initialization For Id 


The Expression Stack 
EXpEession (Seecks.= 
Expression Stack Pkg.Create; 


Package Exp seq Pkgegi- 
New Generic sequences ka a1 |= 
Expression, Block Size => 24 


es 


subtype Expiseq ic 
Exp Seq Pkg.Sequence; 


-—- FeELUENS an EnprEy Expression, Sequence 
function Empty sexpuseosreturn Hxp Seq, 


het hxp seq 

Exp Seq; 
The Init Expr Seq ~: Exp Seq;)—~] Used Por Gencseructing init euae 
Temp Inre Expr Seq =: fxp Seq, 


package Init Exp Seq Stack Pkg is 
new Stack Pkg (Exp Seq); 


subtype Init Exp Seq Stack is Init Exp Seq Stack ePkg stack, 
The Vinze (Exp seq Stack 


Init Exp Seq Stack := Init Exp Seq Steck Pkg Creare, 


PRrOCedUre Remove i xOr EP romeoed als 
New Exp Seq Pkg.Generic Remove (Eq => “="); 


Package Id Sequbka is 
New Generve sequence Eko ji = Pesci id, 
Block Size => 24); 


subEype id Seq Is 
Id Seq Pkg.Sequence; 


Theives 
idmeeq, 
The lait Map tdvseq-slagceq, =— to hold the.1d0 smec construct Init map 


-- these are the same id’s used in state map. 


-- Holds The Name Of The Types; 
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The Type Name 
Type Name, 


=— UsedyFor the Type Decl Part Of Type Name 
The Type Name Decl : Type Declaration; 


=--A Temporary Type Decl 
Temper Type Decl 
Type Declaration; 


= Temporary. Variable For Holding The Identifiers 


ihe string 
Pedaiyid, 


=— Avlemporary Variable For Trigger Record 


Theviuigqger Record 
Trigger Record; 


Sao Ap temp Vari abie For Holding The Value OF Timex Op 


Piet lime: sOp Record 
Timer Cp; 


Ties Timer Op Set 
Timer OG TSee ; 


-—— A Temp Variable For Producing The Expression String 
The Expression String 
Expression := Expression ( 
Prsotirings Empty); 
-—“ontemo Variable For Producing: The Time String 
ihe Time Strang 
Expression := Expression ( 


Fuse rings. Empty); 


Echo 
Boolean := False; 


Number Of Errors 
Natural := 0; 
semancic Error > Exception; 


Procedure Yyparse; 


prccecdure Glliiten ; cul PSDE PROGRAM); 


procedure GET (inpucoli tes stn yser ing, 
Output Fide Nyse anes 2 ings ae, 
Item > Cut PSbiyPROGkAM); 


end Parser; 


ce a a a i i a es 


a Package body PARSER == 


a as a a a ia ia 
=== Z>==>=sSs. SES eS Ee ESE SE ES ES SS ee ee eee ia ee ae i a 


with Psdi Toekens, PsediliGeea, 
Psd] Shift Reduce, Psdl Lex, 
Text ic, Psdl lex avia, 
Pedi vbexgloe, AMSseringe, 
PsdleCencrete Type Fk, 
PsdieGraphubkg, 
Generic Sequence uPkg; 


use Psdislokens, @sdliGoec, 
Psdl Shift Reduce, Psdl Lex, 
Text 16, 
Psdl Concrete Type Pkg, 
Psdl Graph Pkg; 


package Body Parser is 


-- Chis flag is set to true when opticnal gener errata 
-- rule is parsed, to overcome the problem when two 
-- 10°s come after one another. See psdi lex.lyiile 


Type Spec Gen rar: Boolean -— FALSE, 


mcm cc a ae a a 


-= function) Empty Pxp Seg 

function Empty Exp Seq return Exp Seq is 
S: Exp Seq; 

begin 
Exp Seg Pkg.Empty (S); 
re tua. 

end Empty Exp Seq; 


a a a a ae ae a ee a ee 


procedure Yyerror 
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(AS7e nest rang: = 
VSynea Brror |). is 
Space 
Integer; 


pegin == Yyerror 
Nunber Ol Errors: <= 
Numbex Of Errozrs. + 1; 
Texc 1o.New Line; 
texc loo rut( Line” & Integer’ 
image Lanes = 1h) 6° se); 
tex. 1O.Puc bLane(Psdl Lex Die. 
Yytext); 
Space :— iInteger(Psd) lex Dia. 
Yytext’ Length) + Integer’ 
image (Lines) * Length 5; 
forei in le. Space loop 
Poe 
end loop; 
Pie shane tS aS) 
end 1yVexrnror; 


er wm mm a a a a ae as a — 


=-— Function Convert Fo Digit 


-- Given A String Of Characters Corresponding To A Natural Number, 
-- Returns The Natural Value 
PumceLon Convert, To Digit 
(Toering DLgLc. -¢ String ) 
Return Integer Is 
Multiplier 
Integer := 1; 


Digit, Nat Value 
Integer := 0; 


Ragen, —> Convert To Digit 
Bor. I In Reverse 1 
String Digit henge Loop 
ease cstring Digit ih) is 
When ‘OQ’ => 


Digit=;= 0; 
When ‘1’ => 
Digit. += 1; 
When ‘2’ => 
DisgiG. A= 2° 
When ‘3’ => 
Digi tec = uo, 
When ‘4’ => 
Drquie.= 45 
When ‘5’ => 
Di git Sve 


When: ~6'-=> 


ey 


Digit: — 6; 
When ‘7’ => 
Pagit. sed; 
When ‘8’ => 
Digit <=". 
When ‘9% => 
DG i1.Ce =e, 
When Others => 
Nall: 
End Case; 
Nat Value := Nat Value + ( 
Multiplier =—Digit):: 
Multaptier <= Multipliie ee e: 
End Loop; 
Return Nat Value; 
end Convereelo ubagic, 


a ee ee 


== procedure GET 


-- Reads the psdl source file, parses it and creates the PSDL ADT 
-- Input file is line numbered and saved into a file 

--») input. file nameo.lst vin the currene crrectory So at 

-- there 1S no write permission fer that directory, exceptien 

—-= Use Error is taised and program aborts. 125 be esecond eo egume ae 
-- is passed psdl file resulted form PSDL ADT is written into a 

-—- file With that meme. 


procedure GET input rile uN Ss 2st oeng, 
Output Files Nieipin Serang 
Item > Out FSD PROGRAM ) jus 
begin 
Pedi lex To; Open  Tnput (tnpur rile ani 
if Output File N /= ““ then 
Psd) Shex  1o-Create OutpuLr (Cutpurer ile) 
else 
Psdl lex ero Crege- Ouro 
end Le: 


Text _to.Create (Psdl Lex,List File, Out Pile, Input Pile Nee ee oc 
Psel ex. Linenum, 

YYParse; 

Psdiwbex fo-Clese Tapuc; 

Psdi tex lIo.Close Output; 

Item := The Program; 

Text _Io.Close(Psdl lex list File); 


end Get; 
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em me a ee ee i ee 


= proceadure ~GE TI. ao 


-- Reads the standard input, parses it and creates the ~< 
-- PSDL ADT. Input file is line numbered and saved into a = 
poet ve~ inout srt ViewName 1st “in the “current directory Se if Si 
——- there is no write permission for that directory, exception -- 
eee Use (Brror,vs raised and pregram aborts. -— 


i ee 


procedure GET(Iitem : out PSDL PROGRAM) is 


begin 
Dene. (O,creave (bp sdimetex list File, Out Fale, “stdin-psdl lst”); 
Peal Lex .Linenum, 
YYParse; 
Esalybex lo.Clese input; 
Peal lex lo, Close Output, 
teem .:— [re Program; 
text 10. Close(Psdl Lex list Pile), 


end Get; 


wm a ee ee ee ee ee a es a ee ee ee ee ee 


== Procedure (Bind Type Declaracion = 


ay pind Bach Ja in id The Id. */ = 


--/* Set To The Type Name Af es 
--/* Return Temp_Type_ Decl a a= 
Pececcdure Bind Type Declaration{? .S: In ide Seu, 

TY, 3. Type Name; 

Td : an out Type Declaration) is 
begin 7 


—--/* m4 code 
aoe fercach( (ld: Psdli-id), [Id Set Pkg.Generic Scan], 


--—/* ge oe 

--/* [ 

= * Bind, Type Decl Mapi(id, Tn, Td); 
ey 1) 


--/* Begin expansion of FOREACH loop macro. 
declare 
pP2cccdure Loop Body (id: Psdl.i¢d) 2s 
begin 
Bind Type Decl Map(id, In, Td); 


end Loop Body; 


ee 


procedure ExeccutenGcop es 
new Id Set Pkg.Generic Scan(Loop Body); 
begin 
execute [ooo (les), 
end; 
--/* end of expansion of FOREACH loop macro. 


end Bind Type Declaration; 


mm es ere re ars a a a a a ae es 


== procedure Bindeipitial estate a 


--/* Bind Each Id In the State map domain — 
--/* Set To The Type Name initial expression -- 


em cc ec ee ee ie 


procedure Bind Inet valeseaue  soecdee in Dype Pecltarataon, 
ini teeeq (ein se xpEseq, 
Init Exp Map: out Uinae Map) ees 
i? Naburad s= i: 
==) M4 macro code for binding each initial expression in ==/% 
= the init expr seq tov the id”s ian state declaratrongmua. == 
=-/* ~toreach ((1d:ein, Psdliid;, in. ime lye ame | =n 
Se [Type Declaration Pkg.Generic Scan], = 
=ayir [State], mas 
— [ --/* 
ss Bind Init Map(Id, Exp Seq Pkg.Fetch(The Init Exp Seq, 1),—=/77 
—--/* The Initial Expression) ---/* 
cael fi i f= a a7 
== fs }) =a [st 
begin 
-- Begin expansion of FOREACH loop macro. 
declare 
procedure Loop Body (ld: in Psdivid ln: Sine eos ane ears 
begin 


if 2 > Exp Seq Pkg tengren (ihewlort (Expr 'Seq Meet 


Yyerror (“SEMANTIC ERROR - Some states are not initializeda ae 


Raise SEMANTIC ERROR; 
else 


Bind Init Map(Id, Exp Seq Pkg.Fetch (The [nitvexe. (sec) aie 


iie gine ex oressicn i 
eae, 
end ors 
end Loop Body; 


procedure execute loop is new Type Declaration Pkg.Generic Scan (Loopgboawan 


begin 
execute loop (State) ; 
end; 


—-- LIMITATIONS: Square brackets are used as macro quoting characters, 


-—- SO you MUSE write [([x]\] an the m4 soureceer mre 
-- to get [x] in the generated Ada code. 


—-- Ada programs using FOREACH loops must avoid the lower case spellings of 
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== Ehe. tdentiztiter names. “DEFINE”, “~UNDEFPINE”, and “DNL”, 

-- or must quote them like this: [define]. 

-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
-- Exit and return statements inside the body of a FOREACH loop 
=—— may not work correctly if FOREACH loops are nested. 

—— An expression returned from within a loop body must not 

-- mention any index variables of the loop. 

== Ena expansion of FOREACH loop macro. 


-- if number if initial states > number of states, raise exception 
=-—- and abort parsing 
Pl) — DAP veeG Fr hg wengcn (he Ink Exproseq: schen 
Yyerror(“SEMANTIC ERROR - There are more initializations than the states”); 
Baise SEMANTIC ERROR, 
end if; 
exc sind Initial State, 


—_ precedure Mare PSal type == 


o= Seonscrucc tne FESDL TYPE “using clobal variables = 


am a ee we ee a 


(C_Name fan Psdaloid; 

Clo Name dt) inv Adalid, 

Mdl Jin Pype Dectarataon; 

De Sar in Type Name, 

Ops 1 ot) Operation Map, 

GS Par ait Oe Type, Declaration; 
Kwr } Gln yOueE Sie Set, 

i vesc SAN OuUE Texte. 

Ho pese Lanooue Teese: 


Is Atomic: in Boolean; 
ihe type. s <i oun Vecachyee lr as 
begin 


if IS ATOMIC then 


The Type := Make Atomic Type 
( Psdl Name => C Name, 
Ada Name => C _A_Name, 
Model => Mdl, 
Gen) Pat = (GC Pan, 


Operations=> Ops, 
Keywords => Kwr, 
Informal Description 
=> I Desc, 
Axloms Saye eve SC), 


else 


The lype Make Composite Type 


( Name => C Name, 


2) 


Model => Mdl, 
DavteayeoeZUcturTe 


=> D Str, 
Operations=> Ops, 
Gen Pax =" Gola, 


Keywords => Kwr, 
Informal Veseriptaon 


=> I Desc, 

Axioms => F Desc ); 
end if; 
-- /* After constructing the component a 
-— /* initialized the global varibales for */ 
-- /* optional attributes a | 
Geran := Empty Type Declaration; 
Kwr >= Empty Id Set, 
ievese := EMpty Text; 
Papesc -— -EMpeyelexc, 


end Build PSdl Type; 


— procedure Build PSdi Coerator = 


== construct the PSDL OPERATOR using global variables = 


cece em me me ce me ce me mem mc cs ec me ee ee i i 


procedure Build Psdiw@perearen 


(C_ Name 7 an Psdlaia: 

Cra Name se )1n Adagia, 

iG Neie TiO OUE wi ypc Dec Ramat tem, 
Kwr 7 Ne Ou en oct, 

imvesc ‘o 11  -OUce Lext: 

Euvesc / an outs Lex: 

lige) T21NPOUcet ype eUeelatathon, 
Otp : in OUG. lype Declanaeien, 
SE ; in ©ut Type Declaratron, 
IVExp Meeps in out ine Map, 

Excps 2 An Cut sideser, 

Seve ; in out Milimisec; 

Gr > in cue Psd Graph; 

D Streams ein Cues type Pectaracion, 
Tmrs Pein Our, IdeSet, 

Trigs Pan Sule Ble ger Map, 

E Guard 37 mn out exec Guard Map; 

© Guard = an out Cue Guard Mag, 

E Trigger? 10 Out sExXcep el erggqe stag: 
T Op ; in out -Time ryOpeMap, 

Per ; an out Timing Map; 

Fw ; in Cult Timings Map, 

Mep | in Out TamangeMap; 

Mist 7 an Cues tamang eta p, 


bZ2 


begin 


if IS ATOMIC then 


Im Desc 
TS ATOMIC: 
The Opxr 


Miwowr Lext.: 
in Boolean; 
in out Operator) 


[ie Opr = Makes Atomic Operaror 
( Psdl Name => C Name, 
Ada Name => C A Name, 
Gen. Par = Go Pan, 
Keywords => Kwr, 
informal Description 
=>) Dese, 
Axioms => F Desc, 
IReyeibhs => Inp, 
Oucput => Otp, 
State => St, 
Initializataeon Map 
=-) LE xpeMap, 
Exceptions => Excps, 
Specified Met => S MET); 
else 
The sOpr := Make Composite Operator 
( Name => C Name, 
Gen Par aS Par, 
Keywords => Kwr, 
Informal Description 
=o Leese, 
Axioms => F Desc, 
Input => Inp, 
OuL Puc => Otp, 
Stave => St, 
Inieealazay 2on Map 
=- Litep Map, 
Exceptions => Excps, 
Specified Met => S Met, 
Graph => Gr, 
Streams => D Strean, 
Timers => Tmrs, 
Trigqex => Trigs, 
Exec GUuard="7.E Guard, 
Out Guard => 0 Guard, 
Excep Trigger => E Trigger, 
Timer Op => T Op, 
Per => Per, 
Fw => Fw, 
Mcp => Mcp, 
Mrt => Mrt, 
Imp! Dese ==> Im Desc); 
end lt. 
== /- iter -construccing the. component coe J 


=—/7 sinitialrzed the glcebal) varibales for 


=—- /* optional attributes 


oo 


eS 


Gera := Empty Type Declaration; 


Kwr := Empty _Id_ Set; 

I Desc >= EMpty Text; 

Pavesc ;= EMpty Text; 

inp := Empty Type Declaration; 
Otp := Empty Type Declaration, 
St := Empty Type Declaration; 
i_Exp. Map <== Empty Una Map, 

Excps ;= Empty Id Set; 

S Met =O); 

Gr := Empty Psdl_ Graph; 

D Stream := Empty Type Declaration, 
Tmrs >= Enpty ley secu, 

Trigs >= Empey Trigger Map, 

E Guard := Empty Exec _ Guard Map; 

O Guard := Empty Out _Guard_Map; 

E Trigger <= Empty sexcer rigger Map, 
T_Op := Empty Timer Op) Map; 

Per >= Empty Timing Map; 

Fw := Empty Timing Map; 

Mcp := Empty Timing Map; 

Mrt >= Empty Timing Map; 

Im Desc := EMpty Text, 


end) Build Psdiyeperatcr, 


mm es ws ws we we we es we ws we ws ws ws we wes ws ws ws ws es es es es ee ie i 


= procedure Add Op Impl To OpaMap al 


== Uses the operation map we cunstructed only with the == 
io specification part. a 
== Fetchs the operator from the map, uses to create a new one-- 
ee with it (specification part) and add the implementation = 
aes Ort == 
== Remove the old one, and add the new complete operator the -- 


z= map. —— 
procedure Add Op Impl To Op Map(Op_ Name imurse ly Id, 

A Name Do imeecan id; 

Ts SAtomic - -inebeolean, 

O_Map ) inecuL Operation Nap, 

Gr ; Bue out Psdl Graph, 

D Stream = Fingout Type Declaration: 

Tmrs ; nwoue td. Ser, 

Trigs > ane ouc Trigger Map; 

E Guard : in out Exec _Guard_ Map; 

O Guard . in out Ouu Guard Map, 

E Trigger : an out Excep Tragger Map; 

T_Op mean soul liner Op Man, 

Per > in out Timing Map; 

Fw > an out Timing Mar; 
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Mcp sin OUL Timing Map; 
Mrt etn Our “Taming Map; 
im. bese S LM vOULL Cex lacks 


Temp Op (mODE rab On, 
Dene Opler s aCe veer; 


begin 
if Operation Map Pkg.Member(Op Name, Operation Map Pkg.Map(O Map)) then 
Tema. = — Operation Map Pea-retchtOperation- Map Pkg. Map(C Map), 


Ope Name) alt, 
Operation Map Pkg.Remove(Op Name, 
if Is Atomic ener 


Operation Map Pkg. Map(OuMap) 


Keywords => 


Temp Op := Make Atomic Operator 
(Psdl Name => Op Name, 
Ada Name => A_Name, 
Generar => Generic Parameters(Temp Op 2 


Keywords (Temp Op), 


intorma US Deseripeitoen 


=> Informal Description(Temp Op), 


Axioms => Axioms(Temp Op), 
Input => Inputs (Temp_Op), 
Output => Outputs (Temp Op), 
State => States(Temp Op), 


Tie lali Zab lonwhap 
=> Get Init Map(Tempicp),, 
Exceptions=> Exceptions (Temp Op), 
Specified Met => 
Specified Maximum_Execution Time (TemplGp ae 
new Operator (Category 
Granularity =>, Sceomic).; 


Tenp Op eer: =" PSdl soperacon, 


Temp Op Ptr all :— Tempucp,; 
else 
Temp Op := Make Composite Operator 


(Name => Op Name, 
Gen Fax 
Keywords 


=» Generic Parameters(lenp en” 
=> Keywords(Temp Op), 
Informal Descriptien 


=> Informal Description(Temp Op), 
Axioms => Axioms(Temp Op), 
Input => Inputs(Temp Op), 
Outpue => Outputs (Temp Op), 
State => States (Temp Op), 


PnittealaZzat Tenet ac 

=> Get init Map (Temp, op), 
Exceptions=> Exceptions (Temp Op), 
Specified Met => 
Specified Maximum Execution Time (Tempuoe 


Graph => Gr, 
Streams => DU Stream, 
Timers => Tmrs, 
Trigger => Trigs, 
Exec Guard=> E Guard, 
Out _Guard => O Guard, 


Excep Trigger => E Trigger, 


Timex Op => 1 Op; 
Per => Per, 
Fw => Fw, 
Mcp => Mcp, 
Mrt => Mrt, 
Impl Desc => Im Desc); 
Temp Op Ptr := new Operater (Category => Psdl Operator, 
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Granularity => Composite); 


Temp Op Fereall == Temp Op, 


Sa i2° 


Bind Operation(Op Name, 


—-- reset everything after you are done. (the variables that nave default 


Temp Op Ptr, ©: Map); 


values) 
Gr = Empty Psdl Graph; 
D Stream Empty Type Declaration; 
Tmrs = Empty Id Set; 
Lolo s = Empty Trigger Map; 
E Guard = Empty Exec Guard Map; 
O Guard = Enpe y.Oute Guard Map, 
Bo tragge. = Empty —Excep Trigger Map; 
DLO, Empty Timer Op Map; 
Per Empty Timing Map; 
Fw Enpty. Taming, Map; 
Mcp Empty Timing Map; 
Mrt Empty Timing Map; 
Im Desc = “ENpecy Texc, 
else 


bees ee 


Put (“Warning: The specification of operator 


Put Line (Op Names & “~~ was not given; implementation ignored.”) ; 


end if; 
end Add Op Impl To Op Map; 


##%tprocedure parse 


end Parser; 


Eze 


APPENDIX D. MAIN PROGRAM FOR THE EXPANDER 


— * © «© © © © © © © @© 8 @ 
oe ee @ © © @© @ © @ @ 


— * © © © © © © © © @® @ @ 
ee @ © © © © © © @© &@ @ 


mm me ee me mm em er er re cr rc ce ee ee ee ee 


==" Unteaname >: Main procedure for the PSDL Expander 
—-- File name > expander.a 

== eh Os : Suleyman Bayramoglu 

-- Address : bayram@taurusS.cs.nps.navy.mil 

-- Date Created uly Too 

—-- Last Update : {Mon Sep 23 2526.31 310o bay cam 


=> Machine, Syscem Sone tea/ men Ons SUun4 ) SunOS 4.1, 
Verdix Ada ver. 6.0(c) 


ee —_ 


-- Keywords >: PSDL expander, multi-level to two-level 


—=ADStE Bact : 
-- This file contains main driver procedure for the expander 
-- Uses command Unix command line interface, non-standard package U_ENV 


--S$Source: /n/gemini/work/bayram/AYACC/parser/RCS/expander.a,v §$ 
==SREViSHenitsi 2 2S 

==SDate. 1991/09/24 7067265 s. 

——-SAUthOr: bayram > 


rr a ee ee ee ee 


with U_Env, Psdl Component Pkg, 
Psdl_ Tokens, Parser, 
Text, 10; {esc lo; 


use Text_io, Psdl Componenw—e<g;, 
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procedure Expander is 


The Psdl Component 
Psdl Component _Pkg.Psdl Program := Empty Psdl Program, 


begin 


-~—- Command: "expander" or "<command> | expander", 
—-- reads the standard input, outputs to standard output 
meoeUcwavyeArge = 1 then 
PiGetane ("Parsing stdin, terminate with “D"); 
Psdl_ Io.Get (The Psdl Component); 
Flue. Line ( PSdleaDlT created. for stdin, ”); 
Pore bin Gm tiolcwlacting Erie aso bettoin tile stdin.dste? ); 
= XDA ()., 
Poolnlo. Put (ine redl Comeoment); 
pres bine (Expanded Psdl source code 1s generated form Pscl- ADT ,"); 


-~- Command: "expander <file-name> 

-- input is the the file whose name iS given , and 
E2eOUrtput is Cle Standard Output 

iboebr EnV ArgGe = vc tien 


Pes even cowh a= ane lp. or UW Env Arg lies e=o'sn ethen 

Put, bine ("Usdage: expander [a2nput, file] [-e output. tile)™); 
else 

Peg leto, Geet’ Namie => U Eny.Argv(l) <3, 

NG a=) qa => The Psdl Component) ; 
ee OIC.) 
Pediletlo. Put (tne  Psdl Component); -- output the expanded PSDL file 

end if; 


paercommand: ‘expander <inputr—file> —o <out-—file> 
=e eUOpuUL Sand OUuLpDUL 1s/firoem unix. files 
elsif U_Env.Argc = 4 then 


tf UCenvy.Argy (2) ..5 = “=o then 

PUP eoet bats ing =) sb) U0 Env Aroy (Eh) Soka © iam bee. ae ie 
Poets tepGertUleny Arov (1) 23, U Env. Argv( 3)26,0 TnevPsdl Component); 
PUL seine (Psd AOR created for)" 6 UlenvsArgy (1) .S); 
POE wine Sapue, teseing tile 1s Vert-in- files "es 
WRN Sie ay ete a .( (AC) aes OMe eae Ao ala Mr 

== Expand { }; 
Psdl_Io.Put (The Psdl Component) ; 
Put ("Expanded Psdl source code is generated form Psdl ADT and left"); 
PANG priser (a ee eee. sok. SU EY Aro (ee a, SET jie 

else 
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Put Line ("unknown option; Usage: expander [input_file] [-o output _file]"),; 


end if; 
else 
Put Line("Usage: expander [input _ fiie}] "eo outpueri ire 
end if; 
exception 
when Name Error => 
Put Line("Error: Gane open" 6 Usbow ara eee, 
wnen USC Br ror => 
Put Line({"Error: Can't create Cuepulc file Pernies 1 On ee mee car 


when Psdils Tokens? Sylva ee ero me. 
Put Line ("Parsing abermeed cue tom Vie ax eine mee, 


when Parser.Semantic Error => 


Put Line("Semantic Error, parsing aborted"); 


end Expander; 
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APPENDIX E. PACKAGE PSDL_IO 


aame*eve5u8vrneeeeee 
eee e 8 @® @ @# # #@# #@# @ 


2 opsie pe mer| 

==) Unit name : Aflex specification file for PSDL parser 
aes Le. name es Cal er. dl 

= eeuLhor >: Suleyman Bayramoglu 

—— Address >: bayram@taurus.csS.npS.navy.mil 

—- Date Created enor. oot 

—— Last Update sawed Ger 24 232753205) 1390 — bayram)} 


—-— Machine/System See ee On = Sund, suns 471.1, 
—- Veraix Ada version. 6.0" (Cc) 


cm cm me cc ce cs ws ce ce ce wt te ee ewe we ce te ee we ce we ee ce cm ww crm te te ew ww ww we we ww ow ee ee 


-- Keywords weLnbouG, GULOUL>. oDL- Dprocram 
eaenostract 


== THis file is oe package that provides a Standard 1/0 for 
-- PSDL programs (This wasS an easy Start to parser business!) 


—-SSource: /n/gemini/work/bayram/AYACC/parser/RCS/psdl_ io.a,v $ 
=-ohevision: 1.4 5 

--SDate: 1991/09/24 06:46:48 $ 

ee -futhor: bayram S$ 


com mmr ra a ee ee ee ee ae a ee ee 


Wien Parser, Psdl Component Pkg, A_ Strings; 


package Psdil 10 is 


hed 


em ecm ms ec wr ws wr cr cr we we ee we ee oe 


== procedure GET 


~~ Reads the psdl source file, parses it and creates the PSDL ADT 
-~- Input file is line numbered and saved into a file 

== input file name Ist) in the curren directory = cere: 

-~ there is no write permission for that directory, exception 

-- Use Error is raised and program aborts. if the second arcumenme 
-~ is passed psdl file resulted form PSDL ADT is written into a 

-- file with that name. 


em cece mmm ce mm ce a mr wr ee eae 


procedure Get 
( F Name = in String, #OLF Name = an eslr riee—s, 
item > Gut. Psdl ComponentgekG Esalyereguan: ) 
bendmes Pdtcer. cei, 


mc a a eae a ee ee ee ee ee = 


== procedure GET == 


-- Reads the standard input, parses it and creates the —— 
-- PSDL ADT. Input file is line numbered and saved into a a 
-- filé anput file name ,1St In the current directon somes == 
-- there is no write permission for that directory, exception. 
== Use Error iS raised and programma ome >: == 


em cc cm mm mm ce ce wc ww ww we we we we we we ee oe 


procedure Get 
( Item : out Psdl Component Pkg.Psdl Program ) 
renames Parser.Get,; 


a ia 


ie Proceduue sea a 


-- Extract the text representation of PSDL program from = 
-- the PSDL ADT and outputs as a legal PSDL source file —S 
-- The output is always to standard output, but command line == 
-~- switch when invoking the expander, directs renames the == 
—— renames the standard output to as the given UNIX file == 
-~- A modification can be done to this procedure in package —— 
-- Psdl Component Pkg, (separate procedure put psdl) a 
-- to use a file instead of standard output for flexibi., == 
-~ The best thing to provide two procedures one for stdout == 
-- the other for file out, and it is fairly eeasy to do. == 


2 





ocedure Put 


ais) 


APPENDIX F. SPECIFICATION OF PSDL ADT 


—amm 8 8 Oe OO ee 8 ee see 
7 e©¢© © @ @ &@ @ @ © @ 8 8 8 © 


oe «© «© &#© © © © © © © @ © @ 
oo @ «© #£ 0@ © © © @® #© @ # # © 


emer cme ce me a a a a ae i i 


-- Unit name ; SDCCILEMcCation Ofwe olin nat 

-- File name - (Psd eypes-d 

—=AVEner > Valdis Berzins (berzins@taurus.cs.nps.navy.mil) 
-- Date Created >: December 1990 

==)\Modi tied toy. > Suleyman BAyramoglu 

-- Address >: bayram@taurus.cs.npsS.navy.mil 

=—Last Update : {TueSep 24 0020475270193) — bay can) 


--—- Machine/System Compiled/Run ons: (oun4,eounes 4. 
—— Verdix Ada version 6.0 (c) 


mr rr a i 


-- Keywords * abStract i data Eype, “Poor Program 


=-— Pisetoc. : 
=> This package 1s the specificatzom for stehie —oll epi 


--SSource: /n/gemini/work/bayram/AYACC/parser/RCS/psdl types.a,v $ 
=—2ReVLS Lonel lem 

—=SDate> Lood/ 09724904 = os 

—--SAuthor: bayram $ 


Te Ei ee __ 


with PSD CONCRE Ee ! (eRe iG, 

use “PoDE CONCRETE TYPE SeKG, 

WIth PSDEBGRAPHIEKG. 

use  PSDLUGRALH ENG, 

with GENERIC MAP PKG; -~defines a generic map type 
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package PSDL_ COMPONENT PKG is 
--—- BY REQUIREMENTS clauses are ignored in this version. 
-—- The substructure of expressions iS not represented in this version. 


=—- Discriminant types. 
Eyoe COMPONENT TYPE is’ (PSDL OPERATOR, PSDL_ TYPE); 


type IMPLEMENTATION TYPE is (ATOMIC, COMPOSITE) ; 


== Main LYpDes: 

type PSDL COMPONENT 
(CATEGORY Se SCOMPONENT  ITYPE 
GRANULARITY : IMPLEMENTATION TYPE 


PSDL OPERATOR; 
COMPOSITE) iS private; 


ewig itializae1ons make ¢:. psd! component a1 

-- egal variable declaration 

-- €ven though psd! component is an unconstrained type. 
my oe COMPONENT PIR 2S access PSDL COMPONENT, 


Pier eos thetoR. 25 PSDh COMPONENT; +> (category —-“psdil operator): 


Py DeROPEETR 1S @CCess OPERATOR; 


subtype DATA TYPE is PSDL COMPONENT; =—_ (GALEGOryY =>. psa LeLype) = 
Subtype ATOMIC COMPONENT is PSDL COMPONENT; -- (granularity => atomic) . 
subtype ATOMIC OPERATOR is OPERATOR (CATEGORY => PSU OPERATOR, 


GRANULARITY => ATOMIC); 


Subtype COMPOSITE OPERATOR is OPERATOR (CATEGORY =? PoUl OPERATOR, 
GRANULARITY => COMPOSITE) ; 


Subtype ATOMIC TYPE is DATA TYPE (CATEGORY =P eProp hb. TYPE; 
GRANULARITY => ATOMIC)  ; 


subtype COMPOSITE TYPE is DATA TYPE (CATEGORY =P roi TYEE, 
GRANULARITY => COMPOSITE) ; 


-- needed for generic map package 
PUMGELON EQ(x, y: Psdl id) return BOOLEAN; 


function. EQ(x, y: Component Ptr) return BOOLEAN; 


PIMNCT CON Bd (x,y 9p Ptr) return: BOOLEAN, 
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package PSDL PROGRAM PKG is 
new GENERIC _MAP_PKG(KEY => PSDL_ ID, 
RESULTS => "COMPONENT Se ite 
BQ oKheyY =7250) 
Eq Res => Eq); 


type PSDL PROGRAM is new PSDL PROGRAM PKG.MAP; 

-- A psdl program iS an environment that binds 

-- psdl component names 

== €0° pSdlcomponenerde rin eionce 

—— The operations on psd progmem. se- mele m oo Momc. 
== The Operations. on Maps. 


function EMPTY PSDL PROGRAM sectiirn, Poller eoGea, 
—= returns an eCMmpLey psdleoredg sam, 


package OPERATION MAP UERG 2s 
new GENERIC MAP PKG(KEY =a oO aki IH 5 
RESULT —> OP Fie 
EG Key = iG, 
PG Re Sea ae); 


type OPERATION MAP is new OPERATION MAP PKG.MAP; 
=-—- A operation map 1S an ECAvVironmeme chat bamncs 
—— psdl operator names 

== tO psSdl operator def interonce 


function EMPTY OPERATION MAP return OPERATION MAP; 
——"Teriwns ann enpeyseoperar len map 


—- exception declarations 


INITIAL STATE UNDEFINED “exception; 
NO DATA STRUCTURE s exception; 
INPUT REDECLARED ; Exception; 
OUTPUT REDECLARED > exception; 
STATE REDECLARED > exception; 
INITIAL VALUE RELECEARED | SeXCePE TON; 
EXCEPTION REDECLARED ; exception, 
SPECIFIED MET REDEFINED [= EXCeDELOM, 
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NOT _A_SUBCOMPONENT : exception; 
PERIOD REDEFINED : exception; 
FINISH WITHIN REDEFINED wexcept icon; 
MINIMUM CALLING PERIOD REDEFINED : exception; 
MAXIMUM RESPONSE TIME REDEFINED : exception; 


-- ihe following exceptions Signal failures, of 

== explicit runtime 

SeecheoCuscelor Vico laervois Of “Subtype. COnstraints: 

-- This is needed because Ada does not allow partially 
-—- Goust rained types: 

== if any discriminantS are constrained, 

pemenen, all must be constrained. 


NOT AN OPERATOR : exception; 
-- Raised by operations on psdl operators 

—- that have an actual parameter 

-- of type operator with category = psdl type. 


NOT _A_ TYPE ; exception; 

== Raised by operations on psdl data types 

memchat have an actual parameter 

=— of type data type with category = psdl operator. 


NOT AN ATOMIC COMPONENT : exception; 
—-- Raised by operations on atomic components 
== clidat Nave an actual parameter 

-- of type atomic component with granularity = composite. 


- Operations on all psdl components 
Guncteion COMPONENT CATEGORY (C : PSDL COMPONENT) 
return COMPONENT TyPb; 
-- Indicates whether c iS an operator or a type. 
function COMPONENT GRANULARITY (C : PSDL_ COMPONENT) 
return IMPLEMENTATION TYPE; 


Se J nclcates whether .c 1s “aromic Or composite. 


puncte ton NAME (C ) PSDL COMPONENT) return PSDL_ID; 
S- FClUrNG the ps0) name of the component. 


en 


function GENERIC PARAMETERS (C : PSDL_ COMPONENT) 
return TYPERPECLARATION; 

== Returns dn Gmpty typemc> el andi mon 

--~ if no generic parameters are declared. 


function KEYWORDS(C {7 Pop COMPONENT) 
return ID SET; 
-- Returns an empty set if no keywords are given. 


function INFORMAL DESCRIPTION(C : PSDL) COMPONENT) 
return TEAT; 

-- Returns an empty string 

=—<{ af nO informale-ceseriprrem tse caiwen- 


function AXAIOMS( GC] opie Oreo Ne 
return TEE, 

-- Returns an empty string 

=— if no formal waeseriprien Vorlons 


fuUNnCcEICnN INPUTS YO = OPERATOR) 

return TYPE DEGCEARAT LON, 
-- Returns an empty type declaration 
—= Lf no Anputs aresdeciiarea. 


fUuNnCELON. OUTPUILS (OF: OE eR Aron) 

return IVER Speci ARATIoOW, 
-- Returns an empty type declaration 
“= Af nO sOuULpuLSs care. declaveds 


fUNnCEVON STATES(O {OPERATOR} 

return TYPE, DECLARATION 
== ReEEUPNS dn empty =byeenceelamaeion 
-- if no state variables are declared. 


fUNCE TOM ENITIAME STATE (Oe Ore AOr, 
V : VARIABLE) 
return HBAPRESSION; 
-- Raises initial state undefined 
-—= 1f Vv isnot .initiemerzed. 


function GET OINIT MAP (O.: OPERATOR, 
Pet yaa Neva 
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—= returns an empty init map 
Soe lice INE EZ On Cx ust S., 


PUneCLI On EACEP TIONG (Oy > OPERATOR) 


return 1D, SET, 


-- Returns an empty set if no exceptions are declared. 


function SPECIFIED MAXIMUM EXECUTION TIME(O : OPERATOR) 


return MILLISEC: 


-- The maximum execution time given in the specification of o. 
=e, ee also required maximum execution tame. 
-- Returns zero if no maximum execution time is declared. 


procedure 


-- Adds a 


-- Raises 


procedure 


ae ehods- a 


-- Raises 


procedure 


-- Adds a 


-- Raises 


procedure 


-- Adds a 
-- Raises 


POD ANPUT(S tREaM: Sine Spi ips 
sl ein yr NAMES 
O 1 vOut VOPERAIOR) ; 
binding to the inputs map. 


PUPWUPcdeelaved it #strCam-1s already. In inputs (oO). 


ADD OUTPUP (STREAM = an PSDEL ID; 

6 ; in TYPE NAME; 

O ii Ou cCOPERATOR + 
binding to the outputs map. 
output _redeclared if stream is already in outputs(o). 


BUD STATE (STREAM «2 an PSDLOID; 
T :¢in TYPE “NAME; 
O 2h Out OPERATOR); 


binding to the states map. 
State tedeclared af stream is<alreddy in states (o).. 


AOD TN IADI ZATION (S2REAM one Pool ED; 

E 1nN- Sane Re oe LON: 

O ain OU. OPERATOR) 
Pianding to: the -init map. 
initial value redeclared if stream is 


—- already bound in the init map. 


peocecure ADD EXCEPTION(E + PSDL ID; 


-- Raises 


Os AL eout, OPERATOR ky 
exception redeclared if stream is 


-= already in exceptions (o) 4 


procedure 


=—— Raises 


pet, SPECIFIED MET (MET < MILLISEC; 
O Un 4Oue, OPERA BOR |: 
specified met redefined if specified met 


=—- 18s already non-zero. 


a, 


em cr re cr cr rr cr cr cr cr cr cr ree 


-- Create an atomic operator 
function ADA NAME(A : ATOMIC _COMPONENT) return ADA _ID; 


function MAKE ATOMIC OPERATOR 


(PSDL_NAME Bee yUk, se 
ADA_NAME  150pS IUCN 
GEN PAR : TYPE DECLARATION 

:= EMPTY TYPE DECLARATION; 
KEYWORDS / 1D SET := EMPTY ID Sea 
INFORMAL DESCRIPTION, AXIOMS : TEXT := EMPTY TEXT; 
INPUT, OUTPUT, STATE : TYPE DECLARATION 

:= EMPTY TYPE DECLARATION; 
INITIALIZATION MAP : INIT MAP := EMPTY INIT MAP; 
EXCEPTIONS : ID SET := EMPTY 1D oem 
SPECIFIED MET SMILUISHC s. 0) 


return ATOMIC OPERATOR, 


-- Create an atomic type 
function MAKE ATOMIC R EYE. 


(PSDL_ NAME an -}0) FBO 
ADA NAME : ADA_ID; 
MODEL : TYPE DECLARATION; 
OPERATIONS : OPERATION MAP; 
GEN PAR : TYPE DECLARATION 

:= EMPTY TYPE DECLARATION; 
KEYWORDS ; ID SET := EMPTY ID Siup 
INFORMAL DESCRIPTION, AXIOMS : TEXT := EMPTY TEXT) 


return ATOMIC a, 


function GRAPH(CO : COMPOSITE OPERATOR) 
return PsbDiGRsru; 


function STREAMS(CO : COMPOSITE OPERATOR) 
return TYPE DECLARATION; 
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-- Returns an empty type declaration 
-- if no local streams are declared. 


Pipetaon, TIMERS (CO > COMPOSITE OPERATOR) 
return ID SET; 
-- Returns an empty set if no timers are declared. 


function GET TRIGGER TYPE 
(COMPONENT OP —:  PSbi.. 1D; 
ale : COMPOSITE OPERATOR) 
revurge TRIGGER.TYPE, 
-- Returns the type of triggering condition for 
-- the given component operator. 
-- Derived from the control constraints, 
——Tesult1s “none” if no trigger . 
—- Raises not a subcomponent. if component op 
——- is not a vertex in graph(co). 


PuNCT LON EXECUTION GUARD 

(COMPONENT SOP PSDL, ID; 

CO ; COMP OSL TE: OFERATOR) 

Eecinn EAPRE SOLON, 
soeseturns the IF part or the triggering condition for the 
PeweciIpDOlent, Cperatcer, true mr no triggering 
~=swcOucdttron 1S  O1Vven. 
eee hoaises Molla SuUpDCOMpOonent. 1f component op 1s 
Zeilec da -verLex. Ii graph (co). 


PURGE LON “OUTPUT GUARD 

(COMPONENT OP, 

CUTPUT STREAM 2 Psp 10; 

ee) > COMPOSITE OPERATOR) 

return EXPRESSION; 
Paereturns the IF part of the output constraint 
-- for the component operator 
—-~ for each output stream mentioned in the constraint, 
=a Cruc “it MO OuLpUt CONStraint with the stream is given. 
=e rhaiseS not a Subcomponent if Component Op 1s not a 
pevVertex in graph(co) x 


function EXCEPTION TRIGGER 
(COMPONENT OP, 
EXCEPTION NAME : PSDL ID; 
GO ; COMPOSITE OPERATOR) 
relurn EXP RE SOLON; 
-- Returns the IF part of the exception trigger for 
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-- the component operator 

-- and exception name, “true” if there 15 an UWmcondieiena 
== E€XCepel1oOn trigger 

-- in the control contraints, “false “it no exceprie 

—=— truggqer 1S sqiven 

-— for Component OCpmun the conbrel const raiies, 

~- Raises not _a subcomponent if component op 

-- is not a vertex in graph(co). 


function TIME RSORERAT HON 
(COMPONENT OP = Espin i), 
CO ; COMPOSITE OPERATOR) 
PetUGn ! TIMER TOR germ, 


-- Returns the timer lop edicts ore ete comune. 
=> .CONStraine tor sene 

—-— COMpOonent Operavor,= mene =1renoe timer 

== Operaricierssci ven. 

~~ Raises not _a subcomponent if component_op 
-—- 18 not a vertex in graph(co). 


1g UigKeeabene j215 FIMO 
(COMPONENT OP : PSDL ID; 
Co 3 COMPOS TTE OPERATOR) 
return MIELISEE, 
-——- Returns the period part of the control cons taint for ene 
—-- component operator, zero if no period iS given. 
-- Raises mot_a_ subcomponent if Componecn meee = sien 
== a. VENUewemmgrapnhn (CO). 


LUneclIon PENT haha 

(COMPONENT OP PES lab, 

© oe) ;: COMPOSITE OPERATOR) 

return MELEISEC; 
-= Returns the finishiwithin pare (Op eee comme 
=="COnsStraint. fen tne 
-- component operator, zero if nO finish within weet vcm- 
-- Ralses not_a Subcomponent if component op 2s 
-—- not a Vertex in Graph (coe 


function MINIMUM CALLING PERIOD 
(COMPONENT OP : PSDL_ID; 
CO ; COMPOSITE OPERATOR) 
return MILLISEG, 
-- Returns the minimum calling period part of the 
—-- control eo6nstraint tor ne 
-- COMpONneNt Operator, Zero,1! me minimum cal ling 
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=—, period 1S dqiven. 
=-— Raises not _a subcomponent if component_op is not 
aa Vertex in. oraph(co).: 


function MAXIMUM RESPONSE TIME 
(COMPONENT OP : PSDL_ID; 
‘ee. eVCOMPOSI TE OPERATOR) 
TrewuroeMiL Et SeCe 


-- Returns the maximum_response time part of the 
Se Oncrol constraint for the 

—- component operator, zero if no 

“eaxk1mMumM response time 1S )q1Vven. 

-—= Raises not _a subcomponent if component_op 

-- 1S not a vertex in graph(co). 


function REQUIRED MAXIMUM EXECUTION TIME 
(COMPONENT (OR. : PSpbL..1b; 
co COMPOST EE JOP ERATOR) 
Beburi MILLIsSeC; 


-- Returns the maximum execution time part of the 

merecoutrol constraint tor the 

-- component operator, zero if no maximum execution time is given 

-- in the graph. This includes time used by the implementations 

-- of the control constraints and stream operations, and should be 
Swegreabecrsthan or equal tO the specified maximum execution Came for 
—-- the component operator if it is defined (greater than zero). 
Beet ses NOt Td SuDecOMpONent, LE GOMPONeENL Op GS not a vertex in 
saeoraph (co). 


fumet ion LATENCY 
(EROUUCER IOP; 
CONSUMER_OP, 
STREAM (NAME.=. <-PSDE.UID; 
CO + sCOMPOS TIE OPERATOR) 
berurcn MIiLLIsbc; 


-- Returns the timing label on the edge from the producer operator 
-- to the consumer operator in the graph, zero if none. 

—=—- Represents the maximum data transmission delay allowed for 

-- the data stream, for modeling network delay in 

-- distributed systems. 

=- Raises not _a subcomponent if component op iS not a vertex 

S-. fir o-grapn (eo). 
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-—- Creates a composite operator 
LUNCELOn MAKE (COMPOS 1 TR OEE AIer 


(NAME 
GEN PAR 


KEYWORDS 


INFORMAL DESCRIPTION, 


INPUT, CULEUL, 


PNET PAGE GAT EON TMA 


EXCEPTIONS 
SPECIFIED MET 
GRAPH 

STREAMS 


TIMERS 
TRIGGER 


EXEC GUARD 
OUT_GUARD 
EXCEP_ TRIGGER 
TIMER OP 

PER, FW, MCP, 


MRT 


impl desc 


return COMPOS TPES OPERATOR, 


procedure ADD VERTEX (OPNAME 
CO 
MET 


Procedure ADD EEUGE ya. 
STREAM 
CO 
LATENCY 


Pprecedure ADE STREAM Cs 
ak 
CO 


STATE 


in 
seal 
in 


Tait 
ig 
aal 
sa 


pial 
let 
in 


AXIOMS 


PSDL_ ID; 

TYPE DECLARATION 

-= EMPTY TYPE DECLARATIGy 
ID SET := EMPTY ID SE 
TEATS]; — BME Ly Tea, 

TYPE eDECEAR ATION 

:= EMPTY TYPE DECLARATION; 


INIT MAP := EMPTY INIT MAP; 
ID SET := EMPTY 1D isha 
MILLISEC := 0; 

PSDL GRAPH 


:= EMPTY PSDL GRAPH; 

TYPE DECLARATION 

:= EMPTY TYPE DECLARATION; 

ID SET := EMPTY ID SET; 

TRIGGER MAP 

>= EMPTY TRIGGER MARE 

EXEC_GUARD_MAP 

:= EMPTY EXEC GUARD MAP; 

OUT GUARD MAP 

:= EMPTY OUT GUARD MAP; 

EXCEP TRIGGER MAP 

>= EMPTY EXCEP TRIGGER Me. 

TIMER OP MAP 

:= EMPTY TIMER OP MAP; 

TIMING MAP 

:= EMPTY TIMING MAP; 
text:= empty text) 


PSDiLenD, 
out COMPOSITE OPERATOR; 
MILLESHG = — 0) 

PSDL_ ID; 

PSDL ID; 

out COMPOSITE OPERATOR; 
Minnie: — 0); 

PSDL_ ID; 

TYPE NAME; 

out COMPOSITE OPERATOR) ; 
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Procedure ADD TIMER T oe oD LD, 


CO See Ott OMPOS LTE SOPERATOR) 7 
preecedure SET-TRIGGER LYPE(OP ID - in, FOPiL; 
it ; SA TRIGGER SIT RE, 
CO Sd) Out *COMPOSTTIE OPERATOR) | 
procedure SET EXECUTION GUARD (OP_ID Pee teow it bs 
EB * In EXPRESSION; 
CO 7 i Out COMPOSITE OPERATOR)*; 
Peoceaure SET OUTPUT GUARD (OP _ ID SSNPS Dik 1, 
STREAM in PeDL. ED: 
E ; in BXPRESSION; 
CO Inout, COMPOS LIESOPERATOR) ; 


Peccedure Sh EXCEPTION PRIGGER(OP ID ; ian PSDL.ID; 
PRCEP gine Pop bole, 


E > in BMP RE SS LON: 
CO Poin sOUuE~ COMPOS IT TE OPERATOR) ; 
exocedure ADD TIMER OP (OP ID, 
VE 2D SV inS=FSDELLy; 
LOE an TIMER OP 1D; 
E >: in EXPRESSION; 
CO hin OU COMPOST TE Or BRALOR); 
beeccdure Sb PERIOD (OP iD ee oy <4 S01 Teme BY; 
P San MILE ESEC 
CO ; an out COMPOST TE OPERATOR); 


meer oises Period redeftined 1f the period is non-zero. 


Peeeccdure SET FINISH WITHIN(OP ID: ~in- PSDL. ID; 
FW Ann MiGbESEe., 
CO ane Out “COMPOS PTE OPERATOR) 7 
we Naises finish within redefined if the finish within 
“=als MON=Zero. 


procedure SET MINIMUM CALLING PERIOD 

(OP I Dee 2 PSD iy ey 

MCP in MLL SEC; 

CO : in out COMPOSITE OPERATOR) ; 
-- Raises minimum_calling period redefined if the 
=- Minimumicalling period 15 non-zero. 


procedure SET MAXIMUM RESPONSE TIME 

(OP 2ID»: in“ PSDi- iD; 

MRT ; an MiLeLsae, 

ee) > an .Out, COMPOS TIE OPERATOR 
-- Raises maximum_response time redefined if the 
== Maximum) hesponse mee L omen. 2a mes 


er eee i 


-- Operations on all psdl types: 


146 


eae ia os sem cm i ee ee a es 


PMmct On, MOPEL(? 7. PATA TYEE) 
return TYPE DECLARATION; 
--—- Returns the conceptual representation declared in 
oP eMme SpeClLElCation part, 
eo CMDtey. if mot “civen:- 


Puneet LON “OPERATIONS ( 1 -. DATA TYPE) 
return OPERATION MAP; 
-- Returns an environment binding operation names 
—=FtQ, Operation definitions, 
-- an empty map if the type does not define any operations. 


rr a ww a ees ss 


Ee ee rn 


PMnerton DE TA SS ERUCTURE (ist: ‘COMPOSITE. TYPE) 
return TYPE NAME; 

-- Returns the data structure declared in the 

-- psdl implementation part, 

SEE atees MO data SteructLure if Che type. 1s 

-- implemented in Ada. 


—-- Create a composite type 
mule On) MAKE COMPOSITE TYPE 


(NAME ; PSDL ID; 
MODEL : TYPE DECLARATION; 
DATA_STRUCTURE : TYPE NAME; 
OPERATIONS : OPERATION MAP; 
GEN PAR : TYPE DECLARATION 

:= EMPTY TYPE DECLARATION; 
KEYWORDS : ID SET := EMPTY ID_ SET; 
INFORMAL DESCRIPTION, 
AXIOMS TERT g— EME Ty “Text 


return COMPOSITE TYPE; 


= point “out the psd program 
Procedure FUL PSDLAr: JIN PSDL PROGRAM); 


private 
type PSDL COMPONENT 
(CATEGORY > COMPONENT TYPE pee OL DROP ERATOR, 
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GRANULARITY =: IMPLEMENTATION EXPE t= .COMeEO > (Hy meanc 


record 
NAME 7 PoDbawh, 
GEN PAR > TYPE VORGEARATION, 
KEYW > ID SET, 
ENE OPE Se, ax 2: LE Ae; 


case CATEGORY is 
when PSDL OPERATOR => 


INPUT, OUTPUT, STATE : TYPE DECLARATION; 
INIT : INIT MAP; 

EXCEP a Dees) al 

SMET 2) MILEISEe, 


case GRANULARITY is 
when ATOMIC => 


O ADA NAME : ADA ID; 
when COMPOSITE => 
G 7 PSOPIMGRAPH, 
STR : TYPE DECLARATION; 
LM ES ie, 
TRIG : TRIGGER MAP; 
EG : EXEC GUARD MAP; 
OG > OUT GUARD MAP; 
ET : EXCEP_TRIGGER_MAP; 
AQ O)2 IME ee eee 
PER, SW MCr ina : TIMING MAP; 
Ni aUeg ty IBY Dor ; TEXT; -—- dés@@ipcicneam 
--— the implementationgea as 
end case; 
when PSDL TYPE —- 
MDL : TYPRLPECEAR ALTON, 
CRS ; OPERATIC NSA, 


case GRANULARITY is 
when ATOMIC => 


TI ADA NAME a ete yrs ALO! 
when COMPOSITE => 
DATA STR >; TYPE NAME, 
end case; 
end case; 


end record; 
end PSDL_ COMPONENT PKG; 
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APPENDIX G. IMPLEMENTATION OF PSDL ADT 


eoevwve @ © @ @ @© @ @ @ @ @ 
>. © © © e&= 2 8» @ @ @ © &© @ @ 


mm eee ee a ea ea eee ae ee 


=n t rame : Implementation of PSDL ADT 

-- File name ; psdl typeb.a 

—-—- Author ~evalais "Berzins (berzins@taurus.cs.nos mavy .mi lL) 
== Date Created ; December 1990 

Sood: tied «by > Suleyman BAyramoglu 

-- Address >: bayram@taurus.cS.npsS.navy.mil 

eambase. Jodate mutue Sepi724 0020452 199) = bayram} 


-- Machine/System Compiled/Run on : Sun4, SunOs 4.1.1, 
—- Verdix Ada version 6.0 (c) 


em wt ee ae ee ee ee a ee ee ee 


—-- Keywords WeoDcelactwaddta £yoe,, £ovl program 


Abstract : 
om This package is the implementation for the PSDL ADT 


== Source; 
--/n/gemini/work/bayram/AYACC/parser/psdl_ ada.1lib/RCS/psdl typeb.a,v $ 
=~SRevision: 1.15 §$ 

me obace. 1591/09/24 08702715 8 

--SAuthor: bayram $ 


a ee eee ee a ee ee ee Ce 


Zeal ext 10, a Strings; 
Lom LOX 10; 


package body PSDL COMPONENT PKG is 


ee che tollowing funckicons- are provided for. * 
-- instations of generic packages (map, set, sequence) 
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function Eq(x, y? Psdivid) return sCCrE als. 
begin 

pag = Bag Wed Stee Gey)! 5 
end Eq; 


function Eq(x, y: Component Ptr) retwaiee oles irs 
begin 

return (X.Name.s = Y.Name.s); 
end Eq; 


function BQ(x, y. Opsber, return SOere7 ier. 
begin 

return (X.Name.s = Y.Name.s); 
end Eq; 


—= relLUnNsS aneempLry .OpeuaAr tone map. 
function EMPTY OPERATION MAP return OPERATION MAP is 


M : OPERATION MAP; 


begin 
CREATE (null oor, -- default value of the map is the null pilj@ew 
return, 

end EMPTY OPERATION MAP; 


==> EetUrms san empey psd! pvegmam, 
function EMPTY PSDL PROGRAM return PSDE PROGRAM TEs 
Pp: PSDISPROeRAM, 


begin 
CREATE (null, ee. == default values the null opintew 
VOC eee, 

end EMPTY _PSDL PROGRAM; 


eee I oe ee oe eK FOR REFERENCE ONLY KK KK KEKE KKK KA KKK KK KKK K KKK HK 
8 ee eS Tt oe eo ay Ge Fe EXCEPTION LISTING PDEA REC FCI II IO RIGA Fe A IGT AeA Te RIC EK 
--* initial state _ undefined: exception; 

—-=" MNOoOUdata StrMeciure. Jexcepeion, 

=-* input redeclaved: exception, 

—-* output _redeclared: exception; 

--* state redeclared: exception; 

initial value redeclared: exception; 
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Be exception redeclared: rexceprion, 

--* specified met redefined: exception, 

-. Oty a SUbcoOmponecnl . -exCeprion, 

Ss period redefined =. exception; 

=) tinish within-redefined: exception; 

2s MT ea ling 7 period redetined: -exception; 
—-* maximum response time redefined: exception; 
—— The following exceptions signal failures 


--7) -- Of explicit runtime 

== —— checks for violations of Subtype constraints. 

--* -- This is needed because Ada does not allow 

i == partially constrained types: 

—--* -- if any discriminants are constrained, 

eee, ct oetnen all. must be constrained. 

a= )° HOlL~an Operator: exception; 

—-* -- Raised by operations on psdl operators that 

a —--— have an actual parameter 

—* -- of type operator with category = psdl type. 

es Moka type. exception; 

--* -- Raised by operations on psdl data types that 

lea -- have an actual parameter 

cael --— of type data type with category = psdl operator. 

—--* not_an atomic _component: exception; 

a —-- Raised by operations on atomic components that 

=" -- have an actual parameter 

== * [OL type AuOmle Component wilh -Granularity > composite. 
pes To ad Pe a DE OE DE ah al RAE Toh Heh Not leh Tat tak END EXCEPTIONS Sh loli at ie he a he Ie ae i kak ok, Ke Sek 


eae operations on all psdl components 


-- Indicates whether c iS an Operator or a type. 
pumetion COMPONENT CATEGORY (C: PSDL COMPONENT) 
GetuUrie COMPONENT “PEPE 2s 


begin 
Beeurn C CATEGORY: 
end COMPONENT CATEGORY; 


~~ Indicates whether c is atomic or composite. 
PUNE LON COMPONENT GRANULARITY (C =: PSDL COMPONENT) 
Beturn IMPLEMENTATION: TYrPEr is 
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begin 
return C.GRANULARITY; 
end COMPONENT GRANULARITY, 


-- Returns the psdl name of the component. 
function NAME(C = (FopERCeMrPeneny, 
return PSDUIp ie 
begin 
return C.NAME; 
end NAME; 


== RELUINS al EMPty Eyperece lara tem ane 

-- generic parameters are declared 

function GENERIC PARAMETERS (C 3 PoBpiRCOMPONENT) 
return TYPE DECLARATION is 


begin 
Re Guide ec aGhN Aik; 
end GENERIC PARAMETERS; 


-- Returns an empty set if no keywords are given. 
function KEYWORDS (C ; PSDL COMPONENT) 
Geer Doe aS 


begin 
pg(ane Oligig 1G sang it. 
end KEYWORDS; 


~- Returns an empty String if no informal Gesemrperon ws oiven 
function INFORMAL DESCRIPTION(€ : PSDL COMPONENT) 
return TEX Tae 


begin 
rEtuin CC. INES BES, 
end INFORMAL DESCRIPTION; 


-- Returns an empty String 1f£ moO formal description isegi en. 
function AXIOMS(C : PSDL_ COMPONENT) 
reeurn TEX ies 


begin 
TerMrn -CUAX; 
end AXIOMS; 


P= /* OOerations On psdl operators */ 


Se Ureturns al Gmpty type declaration 1f no anputs are declared. 
fonction INPUTS (O > OPERATOR) 
return TYPE DECLARATION is 


begin 
Pie OeCAlEGORYT = Pobl OPERATOR then 
raise NOT AN OPERATOR; 
else 
PeLUrneO.LNP UT: 
SmG. Vt ; 
end INPUTS; 


mone enon OU TPULS (Om. OPERATOR) 
PCC yer DECRARALION 1s 
—- Returns an empty type declaration if 
—-- no outputs are declared. 
begin 
ie OC CATEGORY = PSobDi. OPERATOR then 
raise NOT AN OPERATOR; 
else 
return © .OUTEUT; 
end. 1 tf; 
enc OUTPUTS; 


Pomec1On STATES (0 = OPERATOR) 

feeuin: TPs DECLARATION “is 
Sas erurns an- empty type declaration if no 
-—~ state variables are declared. 


* TYPE DECLARATION; 


begin 
1f O.CATEGORY /= PSDL OPERATOR then 
raise NOT AN OPERATOR; 
else 
Pevurn -O.S2ATE. 


end: a2; 
end STATES; 


function INITIAL STATE(O.  OPRR ATOR eee) AEE EE) 
return EXPRESSION is 
--— Raises initial State underlined Troy ice or oleracea 
begin 
if “O°. CATEGORY” /= 2Sbil OPERATORS eae 
raise NOT AN OPERATOR; 
elsif not INIT MAP PKG.MEMBER(V, O.INIT) then 
raise INITIAL STATE UNDEFINED, 
else 
return INIT MAP PKG.FETCH(O.INIT, V); 
end if; 
end INITIAL STATE; 


Function GHILINGT MAP (O>; OPERAUOR rel ion sew) i iA 
== ReeUurns .an eMmpey sin1e. Map af one 
—-- initializations are declared. 


begin 
if O.CATEGORY /= PSDL OPERATOR then 
raise NOT AN OPERATOR; 
else 
relurn *O7 lmaMe, 
end if; 
end GET INIT MAP; 


LUnNCE LON EXCEPTTONS (©) OPERATOR) 
PeCtUrne Dorie rs 
-- Returns an empty set if no exceptions are declared. 
begin 
if O-CATEGORY /— &SDL, OPERATOR then 
raise NOT AN OPERATOR; 
else 
reECUrIiOD .nACEE, 
end if; 
end EXCEPTIONS; 


function SPECIFIED MAXIMUM EXECUTION TIME(O : OPERATOR) 
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return MILLESEC is 
-— The maximum execution time given in the specification of o. 
-- See also required maximum execution time. 
-- Returns zero if no maximum execution time is declared. 
begin 
toe, CATEGORY /> PSbL OPERATOR then 
raise NOT AN OPERATOR; 
else 
serircn O: SMELT; 
Sema t; 
end SPECIFIED MAXIMUM EXECUTION TIME; 


procedure ADD INPUT 
(oleeeM + Singeop lid; 
- oi YP RN AME., 
O : in out OPERATOR) is 
Paemrods a Dinding to the inputs map. 
-- Raises input _redeclared if stream is already in inputs(o). 
begin 
if O.CATEGORY /= PSDL OPERATOR then 
Baise NOT AN OPERATOR; 
eee eee PEC ARATION PRG.MEMBER( STREAM, O. INPUT) then 
raise INPUT REDECLARED; 
else 
TYPE DECLARATION PKG.BIND(STREAM, T, O.INPUT); 
emo it; 
end ADD INPUT; 


meecedure ADD OUTPUT(STREAM : in PSDL ID; 
it : in TYPE NAME; 
O | Im Out, CEERATOR)- sis 


—- Adds a binding to the outputs map. 
-- Raises output_redeclared if stream is already in outputs(o). 


begin 
mee, CATEGORY /= PSDL OPERATOR then 
raise NOT _AN OPERATOR; 
elsif TYPE DECLARATION PKG.MEMBER(STREAM, O.OQUTPUT) then 
raise OUTPUT REDECLARED; 
else 
TYPE DECLARATION PKG.BIND (STREAM, Ly OsCUTEU 1): 
ema -if; 
end ADD OUTPUT; 
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procedure ADD STATE (STREAM =: ingPopiaiD, 
A 7 in Tee NAME, 
O : in out OPERATOR) is 


-—- Adds a binding Te. thesstabeo aman: 
-—— Raises State redeclared if stream is already Im staves (Ge 
begin 
if O.CATEGORY /= PSDL OPERATOR then 
raise NOT ANSOPERATCR, 
elsif TYPE DECEARATION PRG MEMEER (SaREaAM,  O.> fs te eeien 
raise STATE REDECLARED; 
else 
TYPE DECLARATION PRG BIND( STREAM tae Oo. ali), 
end ii, 
end ADD STATE; 


procedure ADD INITIALIZATION (STREAM : in PSDL ID; 
E >: in EXPRESSION; 
O {21n Cut OPERATOR) -is 


—= Adds a binding eo ene ein mace 
== Raises initdaliva lucy ncdec larcem ine cietec emis 
~~ already bound -1n the aiiteemapr 


begin 
if -O[ CATEGORY 7— Pebil Or ERA lens eiicx 
raise NOT AN OPERATOR; 
elsif INIT MAP ERG MEMBER( SiR EA eet) ene 
raise INITIAL VALUE _REDECLARED; 
else 
INIT MAP PRG BAND ( STREAM, EC. iN), 
end if; 
end ADD INITIALIZATION; 


Procedure ADD EvCEP teh. 25) eal, 

O 3 1n Olle TOPERRTOR) is 
-- Raises exception redeclared if stream is already in 
-—= @€X€eEpeEions (c) . 


begin 
if 0. CATEGORY /— Polo OPERATORS ele 
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tase NOL AN OPERATOR, 
elsif ID SET PKG.MEMBER(E, OvEXCHP) “then 
raise EXCEPTION REDECLARED; 
else 
EP Son l  PkG.ADD (E, OES CEP iz 
enc. Li; 
end ADD EXCEPTION; 


procedure SETISPECTIPIED MET (MET =: -MILLISEC, 

O ei Out (OPERATOR) 
-- Raises specified met redefined if 
poe recited Metis already non-zero. 


begin 
if O.CATEGORY /= PSDL OPERATOR then 
raise NOT_AN OPERATOR; 
elsif O.SMET /= 0 then 
raise INPUT REDECLARED,; 
else 
Ce SMELT) <= MET; 
end if; 
end Shi OoPE CIP IED MET; 


-- Operations on all atomic psdl componets. 


function ADA NAME(A : ATOMIC COMPONENT) 
return ADA ID is 


begin 
case A.GRANULARITY is 
when ATOMIC => 
case A.CATEGORY is 
when PSDL OPERATOR => 
return A.O ADA NAME; 
when PSDL TYPE => 
recur A. 7 Abs, NAME; 
end case; 
when COMPOSITE => 
raise NOT AN ATOMIC COMPONENT; 
end case; 
end ADA NAME; 


function MAKE ATOMIC OPERATOR 
(PSDL_NAME Sve ky 


is 


ADA_NAME 
GEN PAR 


KEYWORDS 

INFORMAL DESCRIPTION 
AXIOMS 

INPUT, OUTPUT, STATE 


INITIALIZATION MAP 

EXCEE LOWS 

SPECIPIED MET 
PerUrn Alor e Or ERA 1Or a. 


—-= Create an avomre opeuaron., 


xX = ATOMIC (OPERATOR, 


begin 
X.NAME := PSDL NAME; 
X.O ADA NAME := ADA NAME; 
~A GEN PAR {= GENGEAR, 
X.KEYW := KEYWORDS; 
X2INF DESC (.= INFORMAL DES Cirle ron, 
X.AX := AXIOMS; 
x. INPULP <= INPUT; 
x. OUTPUT 2 OU TEU; 
X.OTATE := STATE; 
X.INDT f= ENITEADI ZATION UAE, 
X.EXCEP 3;= EXCEPTIONS; 
AOE = or nie Lh ae PME, 


TeLUr ne x 
end MAKE ATOMIC OPERATOR; 


function MAKE ATOMIC TYPE 
(PSDL_ NAME 
ADA_NAME 
MODEL 
OPERATIONS 
GEN PAR 


KEYWORDS 


ADA_ID; 
TYPE DECLARATION 
:= EMPTY TYPE DECLARATION; 


ID SET := EMPTY ID SET; 
TEXT ;= BMPTY TEXT; 
THX 2= EMP Tere 


TYPE DECLARATION 
:= EMPTY TYPE DECLARATION; 


INIT MAP := EMPTY INIT MAP; 
ID SET := EMPTY ID SET; 
MILBESEC :=s0) 

PSDL_ID; 

ADA_ID; 


TYPE DECLARATION; 
OPERATION MAP; 

TYPE DECLARATION 

:= EMPTY TYPE DECLARATION; 
ID SET := EMPTY MpeSe7, 


INFORMAL DESCRIPTION, AXIOMS © TEXT :=— EMPTY Viz 


re buien en TOME Ce ie ips 


—— Creat ¢ sanwepomicum wer 
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X : ATOMIC TYPE; 


begin 
ho NAMES = (POD NAME, 
X.T ADA NAME ;:= ADA NAME, 
x. MDL >=) MODEL; 
X.OPS := OPERATIONS; 
X.GEN PAR := GEN_PAR; 
X.KEYW := KEYWORDS; 
coe DMS -:— INFORMAL IDESCRIPTION; 
ink 2) AXIOMS; 
PeLuUcKh. x; 


end MAKE ATOMIC TYPE; 


See re tee ae ee rr eK KAKA AKA KEK AH AAA HK KKK HRA KA AK KKK KKK KAA 


—-- Operations on composite operators. 


function GRAPH(CO : COMPOSITE_OPERATOR) 
BeLucnorobL GRAPH is 
begin 
if CO.CATEGORY /= PSDL OPERATOR then 
raise NOT AN OPERATOR; 
end if; 
wectCurn CO.G; 
end GRAPH; 


mienci On “Ss REAMS (CO 2 COMPOSITE OPERATOR) 
Bete Veh DECIARATION 1S 

—-—- Returns an empty type declaration if no local 
-- streams are declared. 
begin 

if CO.CATEGORY /= PSDL OPERATOR then 

raise NOT AN OPERATOR; 

ened af ; 

BebUri sco. SLR; 
end STREAMS; 


moMe Lon TIMERS (CO =: COMPOSITE ‘OPERATOR) 
Retr ePSer as 
—— Returns an empty set if no timers are declared. 
begin 
if CO.CATEGORY /= PSDL OPERATOR then 
raise NOT AN OPERATOR; 
end if; 
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return COW TIM; 
end TIMERS; 


function GET _TRIGGER_TYPE (COMPONENT OP : PSDL_ID; 
ce : COMPOSITE OPERATOR) 
return TRESCER I IYEr is 


—-= Returns the type Of triogering Condi tien ee: sen 
—— GiVEn COMPONeENE Operare:. 
-- Derived from Che weenie oe ieonst ea ies, 
-— result 2S “none sae nomeertogcem. 
-- Ralses not ca Subcomponent. ot come oncntger ets 
—= NOt a Vertex si scrapiice):. 
T RECORD: TRIGGER RECORD; 
begin 
if CO. CATEGORY 97= Per OPERATOR nen 
raise NOT AN OPERATOR; 
end at; 
Li ae t HAS VERIEA (COMPONENT Ob pe eGeeG) then 
raise NOT A SUBCOMPONENT;, 
elsif (not TRIGGER MAP PKG.MEMBER(COMPONENT OP, CO.TRIG)) then 
return NONE; 
else 
T RECORD: ="TRIGGER MAP PKG FETCH (CO. TRIG» COMPONE Ors, 
Pelurn fl oneeorRy iT, 
Gn Gizat - 
end Ghat TRIGGER! YPE, 


function EXECUTION GUARD (COMPONENT OP : PSDL ID; 
CO : COMPOSITE OPERATOR) 
return EXPRESSION is 


-- Returns the IF part of the triggering conditreneiecrscue 
~~ component operator, "true" if no triggering 
=> CONGLELON ds mGinem. 
~= Raises Mot_a SUbcoOmpoment if component geome. 
== NOL dad VEreex “ime mares). 
NO TRIGGERING : EXPRESSION; 
begin 
if CO. CATEGORY /— 9FSDiL OPERATOR, then 
raise NOT AN OPERATOR; 
end Vet; 
NO TRIGGERING. 3): =) tue 7 
if not HAS VERTEX(COMPONENT OP, CO.G) then 
raise NOT _A_SUBCOMPONENT; 
elsif (not EXEC_GUARD_ MAP PKG.MEMBER(COMPONENT OP, CO.EG)) then 
return NO TRPeGecerinG, 
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else 
return EXEC GUARD MAP PKG.FETCH(CO.EG, COMPONENT OP) ; 
end if ; 
end EXECUTION GUARD; 


function OUTPUT_GUARD (COMPONENT OP, 
OUTPUT STREAM : PSDL_ID; 
CO ;: COMPOSITE OPERATOR) 
return EXPRESSION is 


—— Returns the IF part of the output constraint 

-- for the component operator 

-- for each output stream mentioned in the constraint, 

ae Erie tf NO CULpUL Constraint with the. Stream ius given: 
P-JPalses ot a subcomponent, 1f component op is 

re NOt sat’ Vertex in Grapn (co) . 


TEMP ID OUTPUT SID; 
NO CONSTRAINT : EXPRESSION; 
begin 


ten COCR EB GOR? /= PP SDL OPERATOR Ener 
raise NOT AN OPERATOR; 


end if; 

NOT CONSIRAINE.5 2= true”, 
TEMP_ID.OP := COMPONENT OP; 

ee eo TRAM SV OULPUT OT REAM; 


if not HAS VERTEX (COMPONENT OP, CO.G) then 
raise NOT _ A SUBCOMPONENT; 

elsif (not OUT GUARD MAP PKG.MEMBER(TEMP ID, CO.OG)) then 
Eeturn  NOTCONSTRAINT, 

else 
return OUT GUARD MAP PKG.FETCH(CO.OG, TEMP ID); 

end if; 

end OUTPUT GUARD; 


function EXCEPTION TRIGGER (COMPONENT OP, 
EXCEPTION NAME : PSDL_ ID; 
ce 2 COMPOS LTE OPERATOR) 
return EXPRESSION is 


eerrouurns time IF part of the exception trigger 
-- for the component operator 

-- and exception name, "true" if there is an 

-- unconditional exception trigger 

ee 2ecile=cCOnEL Gl Contraints, “false” if no 

= SeXCopbilon Eriqger 16 given 

sO EOrVCOMpPOnent ODain whe control constraints, 
po witel Seo enor d SUDCOMpPONenE If —COmpOneRL op 1s 
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-= Not a vertex in Crapi(eo) - 


TEMP ID : EXCEP_ID; 
UNCONDITIONAL EXCEPTION, NO_EXCEPTION : EXPRESSION; 
begin 


if CO.CATEGORY /= PSDL_OPERATOR then 
raise NOT_AN OPERATOR; 


end if; 

UNCONDITIONAL EACEP TION =) Gel, 
NOP EACEP T PON S023 eaeeese | 

TEMP ID.OP := COMPONENT OP; 

TEMP ID.EACEP =:= EXCEP Tien Namis, 


if not HAS VERTEX (COMPONENT OP, “CO. G)s*then 
raise NOT A_SUBCOMPONENT; 

elsif (not EXCEP TRIGGER MAP PKG MEMBER (TEMPS ID, CO nT) eed 
ESlLUrH INC EXE? Tuer; 

else 
return EXCEP TRIGGER MAP PKG. FETCH (Ge 7b ele ees, 

end if; 

end EXCEPTION TRIGGER; 


function TIMER _OPERATION (COMPONENT OP : PSDL_ID; 
CO 3 COMPO> TIP TOV ERATOR: 
return TIMER OP SET Was 


-— Returns the timer op set from Ene comp wo leone radio man 
-- component operator, a empty set if no timer operation is given. 
-- Raises not a Sudcomponent 1 “Componcne oom. 

== NOt a VErTLex. 1m Grapl (eo). 


begin 
af CO. CATEGORY = PODLTORERATORN Gach 
raise NOT AN OPERATOR; 
elsif not HAS VERTEX (COMPONENT JOP aeO-G) then 
raise NOT _A_ SUBCOMPONENT; 
else 
return TIMER_OP_ MAP PKG.FETCH(CO.TIM OP, COMPONENT OP) ; 
end if; 
end TIMER_OPERATION; 


function PERTOD (COMPONENT Grae ee SE imal), 
S16 ; COMPOSITE OPERATOR) 
return MIELISEes2s 
-- Returns the peried part of the Gonrrel conserva ine eo eee 


-- component operator, zere@ if no pericer yemqiven: 
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—— Raises not a subcomponent if component_op is 
== NOt. a VerLlexX in Oraph (co). 


begin 
Pe Oe WAS VERTE (COMPONENT .OF7-CO.G) then 
raise NOT A SUBCOMPONENT; 
else 
Peri rie mvMiING MAP PRG PE TCO COsPER, ‘COMPONENT -OP ):; 
ene: vis 
end PERIOD; 


EOnect lon FINTSH Within (COMPONENT OP > PSDL 1D; 
oP : COMPOSITE OPERATOR) 
Yetiirin MILLISEC. is 


Poeheeuriow ene Tintsiawithin part of the control 

== COUS~Eraint for the 

=e  COMPONeCNt Operator, zero if no finish within is given. 
—— Raises not a subcomponent if component op is 

j-"MOL <a) VErEex Inegraph(Co) . 


begin 
ietaale) & HAS VERTEX (COMPONENT OF; CO.G) then 
raise NOT A SUBCOMPONENT; 
else 
BeLuUCi wt IMING MEP PRG FETCH (CO bw, COMPONENT OP); 
and <1; 
ead PINTS WLIHIN; 


fanctlion MINIMUM CALLING PERIOD (COMPONENT OP : PSDL ID; 
CO = COMPOST ITE SOPERATOR) 
PeturneMLLLISee as 


-- Returns the minimum calling period 

moeeeane Of the control constraint for the 

—— component operator, zero if no minimum calling 
Ts Period is given. 

—-— Raises not_a subcomponent if component op 
Seems MOLta Vervexeain grapir(cG) < 


begin 
if not HAS VERTEX(COMPONENT OP, CO.G) then 
raise NOT A SUBCOMPONENT; 
else 
PeGUl hE MING OMAP PKG FEITCH(CO. Mer, COMPONENT OF); 
end if; 7 
end MINIMUMseARE ING PER LOD, 
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function MAXIMUM RESPONSE TIME (COMPONENT OP ; PSDL_ID; 
ce > COMPOSITE OPERATOR 
return MiLE@Sssc. is 


-- Returns the maximum_response time part of the 
=SPCone rol. COnSmral eer easmge 

-- component operator, zero if no 

—= MaxIiMUMo respons Gute 1Me ues eda cm. 

——- Raises not a subecomponent if Component Op is 
—= Not a vertex in Graph (Go); 


begin 
if not HAS VERTEX(COMPONENT OP, CO.G)= then 
raise NOT A SUBCOMPONENT; 
else 
return TIMING MAP PKG: FEICH (CO (MRE, COME ONE ECE): 
end if; 
end MAXIMUM RESPONSE TIME, 


function REQUIRED MAXIMUM EXECUTION TIME (COMPONENT OP : PSDL_ID; 
Core: COMPOSITE OPERAU@Ee 
renin Mlb lor Gas 


-- Returns the maximum execution time 

—+ Dart of the Conurely ConsSeraries ol wane 

-- component operator, zero if no maximum 

=—-,@XGCUEION Elme 15° Qiven 

-- in the graph. This includes time used by the implementations 
-- of the control constraints and stream operations, 

-- and should be 

-- greater than or equal to the 

—— specified maximum execution cime for 

-- the component operator if it is defined (greater than zero). 
-- Raises Not a sup econponenes: COnpencnume on. 

—— NOt da VEreex in crap ee). 


begin 
if not HAS VERTEX (COMPONENT OP, CO.G) then 
raise NOT A SUBCOMPONENT,; 
else 
Tetum OC; ==) JUSE pomomlie 
end if; 
end REQUIRED MAXIMUM EXECUTION TIME; 


function LATENCY (PRODUCER_OP, 
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CONSUMER_OP, 

STREAM NAME : PSDL_ID; 

CO : COMPOSITE OPERATOR) 
PeLurn MLE PSoEC 1s 


--—- Returns the timing label on the edge from the 

—-- producer operator 

— Meo she CONSsuMer Operator iin the Graph, zero if none. 

-- Represents the maximum data transmission delay allowed for 
-- the data stream, for modeling network 

-— celay in distributed systems. 

- hailses NOL a SUbCOMpOnentL sat Component Op 1s 

=- NOU ta Vertex in graph(co) . 


begin 
if not HAS VERTEX (PRODUCER OP, COQ.G) 
or not HAS VERTEX (CONSUMER OP, CO.G) then 
raise NOT A SUBCOMPONENT; 
else 
BeiUEn) bATENCY (PRODUCERVOP, CONSUMER OP, 
STREAM NAME, CO.G); 
end if; 
end LATENCY; 


Buiet Dom MAKE COMPOSITE OPERATOR 


(NAME Ee Sviee EDs 
GEN PAR : TYPE DECLARATION 

:= EMPTY TYPE DECLARATION; 
KEYWORDS SL DoSeD = EMPTY Ip Sea: 
INFORMAL DESCRIPTION : TEXT := EMPTY TEXT; 
AXIOMS Ten 4 EMP DY Gey, 


INPUT, OUTPUT, STATE : TYPE DECLARATION 
:= EMPTY TYPE DECLARATION; 


PNET IAL CGAL LON MAP - INL AP 

= PMP TY SINT Mar; 
EXCEPTIONS wo DVSE TT. SENET Dose, 
SPECIE TEDIMETL ;: MILLISEC 3= 0; 
GRAPH iWPODL GRAPH 

7= EMPTY PSO b GRAPH, 
STREAMS ;) PY PE DECLARATION 

a EMPTY TYPh DECLARATION, 

TIMERS 2 LOSE Y i. = EMPTY -tD Sel, 
TREGGER : TRIGGER MAP 

= OMe TY GERI CGER MAP 
EXEC GUARD : EXEC GUARD MAP 

= ME ee AEG (GUARD MAP; 
OUT GUARD 7 OUT GUARD MAP 


EXCEP_ TRIGGER 
TIMER _OP 
PER, FW, MCP, MRT 


IMPL DESC 
return COMPOSITE OPERATOR is 


-—-— Create a composite operator. 


X : COMPOSITE OPERATOR; 


begin 
x.name >= name; 
x.gen par := gen par; 
x. keyw >= keywords; 
x. lm’ dese: — im rormaPedescripeaan, 
<a := axioms; 
<p te >= input; 
xX, OULDUL = OuLDuT, 
x.State := state; 
Snceay ala gale >= initialization map; 
xX.exXCep >= exceptions; 
x.smet >= specified met; 
SS | >= graph; 
p ey SONS [= Sececas, 
xe CaM := timers; 
>, ere a gf >= trigger; 
x.eg -—exece Glas, 
x.O0G = OU EN OUaIG, 
K-Ce = (SMGES Ie nClofeies 
x.tim_ op ;:= timer op; 
x. per := per; 
Sey := fw; 
x Mnew = Neco, 
paige := mrt; 

x. Impiedesc | supose; 
return 4A; 


end MAKE COMPOSITE OPERATOR; 


procedure ADD VERTEX(OPNAME : in PSDL_ ID; 


:= EMPTY OUT GUARD MAP; 
EXCEP_TRIGGER_ MAP 

EMPTY EXCEP_TRIGGER MAP; 
TIMER OP MAP 

:= EMPTY TIMER OP MAP; 
TIMING MAP 

:= EMPTY TIMING MAP; 
TEXT:= EMPTY TEXG) 


CO > An QUE COMPOST TE VOPERAIOER: 


MET ; in MIEbESEae 
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0) “rs 


begin 
it CO.CATEGORY /= PSDL OPERATOR then 
raise NOT AN OPERATOR; 
end if; 
CO.G := PSDL GRAPH PKG.ADD VERTEX(OPNAME, CO.G, MET); 
end ADD VERTEX; 


procedure ADD EDGE(X, Y > 2 POE; 
STREAM : in PSDL_ ID; 
iO : in out COMPOSITE OPERATOR; 
DATENGS 4, ono LEIsec, sO). 16 
begin 


Peo weCMe LEGON tt = Poul lOrPERATOR tien 
raise NOT AN OPERATOR; 
end, “Lr; 


Oo Ge] OD EP GREP rer kG ADD EDGE (X%,. % STREAM, CO.G, EATENCY); 


end ADD EDGE; 


Procedure ADD STREAM(S oe plumes) OR ea 

f > in TYPE. NAME; 

CO ; 2 Our "COMPOST TELOFERATOR) 
begin 


at -CO~CATEGORY /= PSDL OPERATOR then 
teaise NOT AN OPERATOR, 
end. if 
TYPE DECLARATION PRG, BIND(S, T, “CO.STR); 
end ADD STREAM; 


Procecure ADD TIMER(T 1 obi 1p; 
CO Our “COMPOS L TE OPERATOR) 


begin 
if CO.CATEGORY /= PSDL OPERATOR then 


1s 


is 


raise NOT _AN OPERATOR; 
end if; 
ID_SET PRG ADD (TS ceri, 
end ADD TIMER; 


procedure SET TRIGGERS TYE ni Gr Pipe elie loo tary, 
ak > an TRIGGER YEE, 
ee : in out COMPOSITE OPERATOR) is 


T RECORD : TRIGGER RECORD; 
begin 
if CO.CATEGORY /= PSDL_ OPERATOR then 
raise NOT AN OPERATOR; 


end lt 
TIRECORD = TT eau, 
TORECORD. oT REAM. = EMPTY IDE SEY, 


TRIGGER MAP PKG.BIND(OP_ID, T RECORD, CO.TRIG) ; 
end ch Det RIGCEE amen, 


procedure SET EXECUTION GUARD (OP_ID > lneeoP LTD, 

E > in SxXPRESoo LON; 

CO > in out COMPOSITE OPERARGEy 
begin 


if CO.CATEGORY /= PSDL OPERATOR then 
raise NOT AN OPERATOR; 
end if; 
BAEC, GUARD MAPS EG. BIND(OP ID eye COlEC), 
end SET EXECUTION _GUARD; 


procedure SET OUTPUT GUARD (OP_ID : in PSDL ID; 
STREAM Pie Spies 
E : in EXPRESSION; 
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iS 


CO elt cout, COMPOS TEE VOPERATOR) 


Pee Lae sOur eur. by, 
begin 
it COpCATEGORY 7 —-PsDL OPERATOR “then 
raise NOT AN OPERATOR; 


end: 1f- 
TEMP ID.OP := OP ID; 
TEMP ID.STREAM := STREAM; 


OUT GUARD MAP PKG.BIND(TEMP_ID, E, CO.OG); 
end SET _OUTPUT_GUARD; 


Procedure oh) PE ACEPIION FRIGGER(OP ID ; ihn PSDL ID; 
EMCEE Ns itl P SDL ID; 
ia An EAPRESSION, 


CO LOU COMPOS DTH OPERATOR) 


PEP TD) = EXCEP) 1p; 
begin 
if CO.CATEGORY /= PSDL OPERATOR then 
raise NOT_AN_ OPERATOR; 


end if; 
TEMP _ID.OP := OP_ID; 
TEMP _ID.EXCEP := EXCEP; 


PA Cee TRIGGER MAPUPRG BIND (TEMP 1D, Ey, CO.ET)> 
end SET EXCEPTION TRIGGER; 


procedure ADD TIMER_OP(OP_ID, 


FLV LD (aire Sih Eb); 
TOP : in TIMER_OP_ID; 
E Jel hae Reso LlON; 
CO 5 2h GUL <COMPOS ITE OPERATOR) 
TEMP_ID : TIMER_OP; 
TEMP _SET : TIMER_OP_ SET; 
begin 


if CO.CATEGORY /= PSDL OPERATOR then 
raise NOT_AN OPERATOR; 


end-2 2; 
TEMP ID.OP ID := TOP; 
TEMP_ID.TIMER_ID := TIMER ID; 
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iS 


is 


is 


TEMP _ID.GUARD := &; 

TIMER OP SET PKG.EMPTY (TEMP SET) ; 

TIMER OP SET PKG.ADD(TEMP_ID, TEMP SET); 

TIMER OP MAP PKG.BIND(OP_ID, TEMP SET, CO.TIM_OP); 
end ADD TIMER OP; 


procedure oET PERIODVGES esky a Pov iD, 
P * in MELLIsSeG, 
CO > in out COMPOSITE OPERATOR, 


—— Raises perilod sederi need tric (oer toc toe ia aan 
~- Raises period redefined if the period is non-zero. 


begin 
if CO.CATEGORY /= PSDL_ OPERATOR then 
raise NOT AN OPERATOR; 
end 1f; 
if (TIMING MAP PKG.PETCH(CO.PER,SOPTID)) /= 0) then 
raise PERIOD REDEFINED; 
Sncirrr; 
TIMING MAP _PKG.BIND(OP_ID, P, CO.PER); 
end SET PERIOD; 


procedure SET FINISH WITHIN(OP_ID: in PSDL_ID; 
FW ; an MIbLISEe- 
CO : in out COMPOSITE OPERATOR) 


-— Raises finish y sen ieee tc caer 
== EMG finetsh withane as Neleze re. 


begin 
if CO.CATEGORY /= PSDL_OPERATOR then 
raise NOT_AN_ OPERATOR; 
CiiGeais 
If (IM ING See ee KhGr amr Ch Ce lRW a1OP te) Omen 
raise FINISH WITHIN REDEFINED; 
encdimit; 
TIMING MAP PKG.BIND(OP_ID, FW, CO.FW); 
end SET_FINISH WITHIN; 


procedure SET MINIMUM CALLING PERIOD 
(OPT iD: any Peoria, 
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IES 


is 


MCP  : in MILLISEC; 
CO : in out COMPOSITE OPERATOR) is 


== Raises minimum Calling period redefined af the 
a miiimum ealling period 1s non-zero. 


begin 
He CO CATEGORY /= PSDL OPERATOR then 
raise NOT AN OPERATOR; 
end if; 
ie we iMING MAPS PKG FemcCH{CO.Mcr, OP _10))./=-0 then 
raise MINIMUM_CALLING PERIOD REDEFINED; 
end 125; 
TIMING MAP PKG.BIND(OP ID, MCP, CO.MCP); 
end SET MINIMUM CALLING PERIOD; 


procedure SET MAXIMUM RESPONSE TIME 
(Olan earn Pop ih; 
MRE ; In MELLISEC; 
CO Ss OVE. COMEOS LTE COPRRATOR) is 


poo t ses Maximum response Time redetined if the 
pac IMuUIN  TeSpOnse tame is non-zero. 


begin 
if CO.CATEGORY /= PSDL_ OPERATOR then 
raise NOT AN OPERATOR; 
end if; 
ieee TIMING MAP PKG. FETCH (CO:MRIT, OP ID)) ./= © then 
raise MAXIMUM RESPONSE TIME REDEFINED; 
end. 11; 
PEMtNGeMAP PKG. BIND(OP_ 1D, MRT, CO.MRT)} 
end SET MAXIMUM RESPONSE TIME; 


eee RG RK AM RG Re ee ek ie ek ke A ae oe i ke re ok ee oe ee ee i oe ie) nk ie 


-- Operations on all psdl types. 


PUMeELON MODEL(T : DATA. TYPE) 
HEebUrne TYPE SDECUARATION-is 


—-- Returns the conceptual representation declared 
=> (ime tie specifi cation-part, 


=> ©Mply sf met given, 


begin 


17] 


case T.CATEGORY is 
when PSDL OPERATOR => 
raise NOT A TYPE; 
when PoODL TYPEeS- 
Bete thio, 
end case; 
end MODEL; 


function OPERATIONS(T : DATA_TYPE) 
return OPERATION MAP is 


-- Returns an environment binding operation 
—— names to operation definitions, 
-- an empty map if the type does not define any operations. 


begin 
case T.CATEGORY is 
when SDE) OPERATOR 
raise NOk AL aT Es, 
when PSDL_ TYPE => 
KCL Urn. 1 2ORS, 
end case; 
end OPERATIONS; 


—-- Operations on composite psdl data types. 
function DATA STRUCTURE(T . COMPOSITE Tie )megeturn TYPE Nati 


-- Returns the data structure declared in the 
=— psdl amp lementatbiton paws, 
-- raises no data structure if the type is implemented in Ada: 


begin 
case T.CATEGORY is 
when PSDL OPERATOR => 
hase NG hing Wie a, 
When obo Pye ne 
case T.GRANULARITY is 
when ATOMIC => 
raise NO DATA STRUCTURE; 
when COMPOSITE => 
return T DATARS oe 
end case; 
end case; 


ie 


A; 


end 


DATA STRUCTURE; 


mimction MAKE COMPOSITE TYPE 


(NAME 

MODEL 

DATA STRUCTURE 
OPERATIONS 

GEN PAR 


KEYWORDS 


INFORMAL DESCRIPTION, 


AXIOMS 
Boruc: COMPOotTE TYPE is 


-- Create a new composite type. 


X : COMPOSITE TYPE; 
begin 

A.NAME := NAME; 

X.GEN_PAR := GEN_PAR; 

X.KEYW := KEYWORDS; 

Pe NE SUB SC <> ENEFORMAL DESCRIPTION, 

X.AX := AXIOMS; 

B%.OPS := OPERATIONS, 

X.MDL := MODEL; 

Peeters oe DATA GERUCTURE,; 

return 


1s 


PSDL ID; 

TYPE DECLARATION; 

TYPE NAME; 

OPERATION MAP; 

TYPE DECLARATION 

:= EMPTY TYPE DECLARATION; 
Lesa EMP pase. 


TE eee EVP TE 


-—- stub 5/17/91 


end MAKE VCGMPOsST IE eee, 


== OULDUTS tne psd program 
PLrOCeAU GO VEU ATE os) ate 


IN PSDL PROGRAM) is 


separate; 


ee te i ie Se ie a BS Sno UL oA eat te Le 7.4 Kad tal Cal Gall Tal ah tab Toh Tol tof Kall Cal Zod Tall Ral Call toh Lal Lal FAY Tak Sahl ah Mal Lad wall tal tof Raf Fah Saf tal fal Une tol Gof tof Gof Gah Ze Was 


eoee, KG, ee a oe 


FOR REFERENCE ONLY 


KKK KKK KEK HK KKK KKK KKK KKK KKK 


— eK KKK KKK KK KK KK KKK KKK KKK KKK KKK KK KK HERE KKEKKEK KK KKKKEKK KEKE KEK KK KKK EHE 


private 


PeCord 
Maines ad, 
Geiued & ee (ICE lede ton, 
Hol Bien 
inf desc, ax: text; 
case category is 
when psdl operator => 
Tape, eOue CUE, 
agate 5S sUeslie jikehoy, 
excep: id set; 
smet: millisec; 
a Case Oltanularityaas 


keyw: 


when composite => 
G2 psdligeapn, 


Edm: Teese; 
Eig: triggew map, 
ec) exCe Guare map, 
og: out guard map; 
is Cl eee Delt P99 emap, 
per, fw, 
end case; 
when psdl_ type => 
mdi: type declaration, 
ODS 7s ope Fatt On. map, 
case granularity is 
== F when atomic => 


mcp, mrt, 


when composite 
end case; 
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type psdl component (category: component type 
granularity: implementation type 


tim_op: timer _op map; 
rmet; Caming map; 


psdl operator, 
composite) is 


State] by peace aaa Foi, 


when atomic => o ada name: psdl id; 


Stl. pe ypCncceclanaduron, 


ttadarnamne =) psd Ped, 
=7 data Stl seype ane, 


end case; 
end record; 
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APPENDIX H. IMPLEMENTATION OF PUT OPERATION 


em ecm seher 

—="Unit name : Output operation for PopieAuT 

—> (Bile snare BP jeisrelle eine el 

== Uwe r >: Suleyman BAyramoglu 

-- Date Created : December 1990 

—- Address > bayramétaurus.cs.nps.navy.mil 

—— Last Update > {Tue Sep 24,00 :14 17-199 bay ram) 


-- Machine/System ere On sound suns 4 Sie, 
—— Verdix Ada version 6.0 (c) 


—--— Keywords ; abstract data type, PSDL program 


-= RDS E GAGE : 
== This package is the implementation for the PSDL ADT 


--$Source: /n/gemini/work/bayram/AYACC/parser/RCS/psdl put.a,v $ 
—— Rey ls tom ed) cur 

--SDate: 1991/09/24 08:29:03 §$ 

—--SAuULhHOr: bayram $ 


— aw rs rr rs rs cr cr cr cr cr ee ee i ee ee 


— Procedure’ Ulery ses oS 


-- Extract the text representation of PSDL program from a 
-- the PSDL ADT and outputs as a legal PSDL source file == 
-- The output is always to standard output, but command line a 
-- switch when invoking the expander, directs renames the = 
-- renames the standard output to as the given UNIX file == 
-- A modification can be done to this procedure in package == 
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Sees Component eho, Separate procedure pue psd) = 
So vOmUsera file ansreed.OLestandara uLpUL. Tor -TLlexibicy == 
-- The best thing to provide two procedures one for stdout == 
-- the other for file out, and it is fairly eeasy to do. == 


meen ee ee ee a ee 


Peececure Put Pisdl (FP: an, Psdl Program) is 


Seon. COmMPONenE FL, 


es. Esai Componenc, 
GD; Operator; 

Wane Laea Type; 

= ALOMmIc Component ; 


Ao : Atomic Operator; 
eor,, COMPOSI Le Operator; 
eee Composite Type; 


MUIQerhom 2.926701 (5; ePsdl Program Pkg.Khes Sel) return NATURAL 
Benemesee oC NPT oOGranmeng Kes sel PhO. S126, 


function Size Of($: Id Set) return NATURAL 
Rename s ian eSCtur kG. 5126; 


Berunerlouete en 1a(Se.10 Set; Mm: natural) return psdal id 
=> menanes: La SCL spr. eve, 


PemoemMatipoct. Psdl Program Pko.Key. Set; 
Per sange Set. : Psdl Program. Pkg.Res Set; 


fib Constant STRING <= ™ ae -- horizantal tabulation 


-- print component category and name of the component 
ereocedure PuE Component Name(C 2 am Psdi. Component) is 


begin 
if Component Category(C) = Psdl Operator then 
Put.) OPERATOR “)i 
else 


Put ( TYPRowa, 
end if; 
Put Line (CaNamess, 
end Put Component Name; 


procedure Put Id List {id bast one roesece 
Message : in String) is 
TI : NATURAL == - 2; 
begin 


if not Id Set PKg-Equal(id Last, =mpty la ssece sehen 
Put Line(Htab & Htab & Message); 
Put (Htab & Htab & Htab); 
—-- Begin expansion of FOREACH loop macro. 


declare 

procedure Loop Bo@y (id=: Psdi te) ers 
begin 

i een 

Jeg We (earner 
end if; 
PUG yo) a 
Tt, feel 


end Loop Body; 
procedure Execute Loop is new Id Set Pkg.Generic Scan(Loop Body); 
begin 
Execute Loop(id List); 
end; 
-- LIMITATIONS: Square brackets are used as macro 
=—Guotane. Cha eadcters, 
—— so you must write [[x]]) im the m4 source fie 
—-- to get [x] in the generated Ada code. 
-- Ada programs using FOREACH loops must avoid the 
-- lower case spellings of 
--— the identifier names "DEFINE", "UNDEFINE", and "DNL", 
—— OF MUSE QUOLE them dike this a [detine |: 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package ina separate file. 
-- Exit and return statements inside the body of a FOREACH loop 
—-- may not work correctly if FOREACH loops are nested. 
—— AN @€xXPression returned from Within a, loop becyetuse Nor 
—-- mention any index variables of the loop. 
--— End expansion of FOREACH liocop macro. 


New Line(2); 


178 


end ic; 
eno Puts id List; 


Peoccdure Puc fd list (id list ; in Id Set) is 
ieee NATURAL, <= 1; 
begin 


Peemoe 0 Set PRo.rqual (id Last,’ Empty Id Set) then 
=— Begin Expansion of FOREACH loop macro. 
declare 
Precedure Loop Bodyiid : Psdl 1d) as 
begin 
ie 2 > 1 then 
PUES a) 5 
Sng est; 
J D8 me cal le ere Br 
ee ee al 


end Loop _ Body; 
Procedure PxXeecure hocp 1s 
New locke EKG, GEnerile. scant LOOp.body); 

begin 

Execute Loop(Id List); 
end; 
end if; 

emer Put Id Last; 


Procedure Put Smet(O : in Operator) is 


begin 
if 0.Smet > 0 then 
Put (Htab & Htab & "MAXIMUM EXECUTION TIME "); 
Puce Dine, INTEGER image (O.. Smet). é" «ms™); 
New Line; 
end if; 
eld Put Smet; 


SsecuLPUL -[nioOrmal Description, Formal Description 
procedure Put Text(T : in Text; Message : in String) is 


La? 


begin 
if not A Strings.Is Nuli(A serings 4m sag 
and T /= Empty Text then 
Put (Htab & Htab & Message & " "); 
Put. Dine yoo, 
New Line; 
Neto ole 
eai¥el. soe Wey it 


-- Output the Type Name in a recursive manner 
procedure Put Type Name(Tname: in Type Name) is 


11>) SoNeatura ll, = ie 
begin 
Put (Tname.name.s); 
if not Type Declaration Pkg.Equal (Empty Type Declaration, 
Tname.Gen Par) then 
abe lite 7 
—-- Begin expansion of FOREACH loop macro. 
declare 
procedure loop body (id; in Psdl 0d; Ait: ine, pealame) sre 
begin 
ite  -eaen 
Pui 
end if; 
Pile cs 70. eer nee 
PUG by pC Name (iin) e, => pr ENG) CUR Uae yess 
LS Yoel: 


end loop body; 
jQuaroKol svolbhea sie deremters  Ieyore al 
new Type Declaration Pkg.Generic Scan(loop body); 

begin 

execute loop(Tname.Gen par); 
end; 
-- LIMITATIONS: Square brackets are used as macro 
—“-Quoting ieharackems, 
—- so you must write [[x)] ano the m4 source tare 
-- to get [x] in the generated Ada code. 
—- Ada programs using FOREACH loops must avoid the 
~~ lower case spellings of 
-- the identifier names "DEFINE", "UNDEFINE", and "DNL", 
—- Or must quote them like this: [define]. 
—- The implementation requires each package to be generated by 
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-- a separate call to m4: put each package in a separate file. 
-- Exit and return statements inside the body of a FOREACH loop 
-- may not work correctly if FOREACH loops are nested. 

--~ An expression returned from within a loop body must not 

——- mention any index variables of the loop. 

-- End expansion of FOREACH loop macro. 


Puen is 
end 1 f; 
end Put _ Type Name; 


procedure Put _ Type Decl (Td >; in Type Declaration; 
Message: vin. Siri J 7s 
ie acral. = 1; 
begin 


ieeonomlvoc Decbararion PKo.kqual (Empty Type Declaration, 1d) then 
put line(htab & htab & Message); 


-- Begin expansion of FOREACH loop macro. 
declare 
procedure loop body(id: in Psdl_ Id; Tn: in Type Name) is 
begin 
if i> 1 then 
re ss een sci is le) 
end if; 
PUue(htab &£ Htab &€ Htab & Id.S & Ascii.HT & “: " ); 
Puc Type Name(Tn),; 
ee i+ 1S 


end loop body; 
PLocedune execute loop 1s 
new Type. Declaration Pho Generic Scan (loop) body); 
begin 
execute loop(Td); 
end; 
New Line (2); 
end if; 
end Put Type Decl; 
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procedure Put State(State: in Type Declaration; 
Int be: Innit Mapas 


i, 3 : Natural” sae; 
Prev Tn : Type Name:= null, 
Begin 


if not Type Declaration Pkg.Equal (Empty Type Declaration, State eae 
Put lane(Htab & Heab Go SiALho. 


-- Begin expansion of FOREACH loop macro. 
declare 
procedure loop body(id: In Psdl Id; Tn: Type Name) is 
begin 
tr ee eee 
if Prev Toe. hecho 
put ("se Ascii, 


else 
PUG 22 a, 
Puta iy pee Ane Veo (ia, 
Put bine < 
end oat 
end sit; 
put (Htab & Htab & Htab & Id.S8); 
Page oy eh: sell, 
a ee ls: 


end loop body; 
procedure executeu loop a5 
new Type Declaration Pkg.Generic Scan(loop body); 


begin 
execute loop (State) ; 
end; 
-- LIMITATIONS: Square brackets are used as macro quoting 
—— (Characrers. 


-- so you must write [{x]] in the m4 source file 
-- to get [x] in the generated Ada code. 
-- Ada programs using FOREACH loops must avoid the lower 
—— case spellings of 
—~ the identifier names “DEFINE”, “UNDEFINE” feend) Dia | 
—-- or must quote them like this: [define]. 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a Separate file. 
-- EXit and return statements inside the body of a FOREACH loop 
-- may not work correctly if FOREACH loops are nested. 
-- An expression returned from within a loop body must not 
—-- mention any index variables of the loop. 
—-- ENG E€xpansion Of FOREACH Wooo macner 
Pei" “aaa 


Put Type Name(Prev_Tn); 
bud INT ETA EY sy \;, 


-—- Begin expansion Of FOREACH loop macro. 
declare 
precedure loop. bodyi(id: In Pedi Id; EB: bxpression) is 
begin 
mts goe 1 then 
Bes sy 
emda 7 ; 


end loop body; 
procedure execute loop is 
new Init Map Pkg.Generic_ Scan(loop_ body); 

begin 

execute loop(Init); 
end; 
-—- LIMITATIONS: Square brackets are used aS macro quoting characters, 
= SoC, VOU. MNsSt write iiix)|) in Che m4source file 
-- to get [x] in the generated Ada code. 
-- Ada programs using FOREACH loops must avoid the lower case 
= SOC LiAngs “OF 
—— Ene Loeitirier names “DEFINE”, *'UNDEP INE”,--and “DNL, 
or mst quore them tike this: -[deftine):- 
-- The implementation requires each package to be generated by 
—-- a separate call to m4: put each package in a separate file. 
-- Exit and return Statements inside the body of a FOREACH loop 
== May Not work correctly if FOREACH loops are nested. 
-- An expression returned from within a loop body must not 
S- Mention any index variables of the Loop. 
=— £nd €xpansion Of FOREACH Loop macro. 

new line(2); 
eng orr; 
end Put State; 


we ae ae ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eC Ce 


—_— mma i a a ee ae a ee Ce 


Precedure Pur Operator Spec(O: in Operator) is 


begin 
BUe LIne (tab 6° "SPRCIFICATION™); 
Puce lypo Decl(O-Ger Par, “GENERIC"); -- put generic parameters 
PoE Type (Peci (0 .inpur,-  LNPUT); == OO NOUS 
PUGS yDe2DeciIn Oe .Output, OUTPUT"); == Ue CUuEDUES 
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Put. Stave(Os bate, 2 eye, So DUE iedece 


Put Id List (©. Excep,® EChr ErONS oy, =>" PULWexceptions 

Put Smet (0); —- put specified MET 

=o) PUL LVeGmt smieraee -—-not implemented in this version of gees 
Put Id List (O.Keyw,,) KEYWORDS”), =—="puL keywords 

Put Text (O.Int Desc ers er Eerie: —-- put inf. descriptram 
Put Text(O.Ax, "AXIOMS") ; -- put formal desertereen 


Put_Line(Htab & "END"); 
end Put ‘Operavor ope, 


ce cc ce ce ce ec ce ec co cr cr crs ww rr ne te ee ee ee ee ww we ee ee es ws we ws ws we ws ws ws we 


me ee ce cr ww ww cr re ee ee ee ee a a ee ee ee ee ee Ce 


procedure Put Type Spee sii batdul oo )mere 
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ST mw ww ee ee ee ae ae ee ee 


-~- Output operator spec for a psdl type 

-- the only difference is the format, an elegant 

—- way can be easily 

-- found to use the procedure Put Operator Spec by 
== psenting a flag, DULL this 2S. a) quick and dirty fix. 


ee 


Dreceoure Pul Op spec(O° in” Operator): 1s 


begin 
Put _Line(Htab & "SPECIFICATION"); 
Pur Type Deci(0. Gen Far, “GENERIC™),; -- put generic parameters 
Put Type Deci(O.Input, "INPUT"); == PUL INDUC Ss 
PUL type peci(O-Oulput,..“OUTPUT"); == DU OU put Ss 
Put Gace Op ct ate, Onin); ‘os Aoteae.s 
Pupelodvbrst(O7excep, “BACEPTIONS"), -- put exceptions 
Put Smet (0); == pul; specriied. MET 
Se POUL eECCMt ot Pace Not implemented in this version’ Of ADT 
Put Id List (O.Keyw, "KEYWORDS") ; -- put keywords 
Piums text (OaInivesc, “DESCRIPTION ); = DUG Mi sOeSe hoe Lon 


= wmour Formal description 
Put Line(Htab & “END") ; 
Sue Fut Om Spec; 


procedure Put Op Spec List (Op Map : in Operation Map) is 


begin 
declare 
Procedure Deep body (10>: winebsdlid---Op. in Op. Pla) és 
begin 
Oh =] 00.414; 
Pub (htab) = == andent a Little bit 


Put Component _ Name (0) ; 
Fut Op. spec (0); 
New Line; 


end Loop Body; 
procedure Execute Loop is 
New Operdallon Map Pkg.Generic Sean(Loop Body); 
begin 
Execute Loop (Operation Map Pkg.Map (Op MAp)); 
end; 
end Put “Oorepece bist; 


begin -- Put Type Spec 
Put Line ( SPECiIn ICA miON 7, 


Put Type Decl (7 Gen Par, "GENERIC 7 = Oe 
Put. Type Decl tas, =e 
Put Op Spec Urst (2 eas, 

Put Id List (O.Keyw, "KEYWORDS") ; == pile 
Put Text(O/ini Desc DESCRIPTION == pie 
Put Texe(O. Ax, AxTOMS >, == Due 


Put Line("END") ; 
New Line; 
end Put Type Spec; 


—-Output Operator. imolemenrati1on 


186 


generic parameters 
Model 


keywords 


inf. descripemem 
formal descriptien 


am ee ee ae ee ee 


procequre Pur Cperator Implementation (O> in Operator) is 
Co~ Composite Operator, 


es 


mi mm re ee ee ae ee ee ee ee ee ee ee ee ee ee ee ee 


procedure Put Graph(G: in Psdl Graph) is 


a a a ee ee ae a ee 


me ee eae eee eee ee ee eee ee eee 


Pneccoure PUL Vertices (Glin. Psdl’ Graph) as 
Vertex List : Id Set; 
Met : Millisec; 
begin 
Id Set Pkg.Assign(Vertex List, Psdl Graph Pkg.Vertices(G)); 


ao ©Orecach( (Ta. Psdl da) v1ldsset “Pho. Generic scan], 
=o [VeTruex List), 


——/* [ 

can aged PUC(Heae Stab & Hie -k VERTEX 6 1d. Ss); 

ay Meter Peal Grapn Pig Maximum Execution Time(la,G), 
iat al if Met /= 0 then 

ie? iad Put Line(" ; "* & Integer’Image{Met) & “ ms"); 

a ia else 

—--/* New Line; 

ae end if; 

a }) 


wr eeeUinyexpansion Of FOREACH cop macro. 


declare 
Peecedure. loop rbody(id«-FPsdileidjy yas 
begin 
Put tiieb we  Hiteb a6 tab: Ga" VERTEX 86 -1d.5);, 
Mer -= 7) edl- Graph Pha. Maximum, Bxecut ton. Pime (1d,-6G) ; 
if Met /= 0 then 
Put_Line(" : " & Integer'Image (Met) & " ms"); 
else 
New Line; 
Sng ay 


erid loop body; 


procedure execute loop is 


new Id Set Pkg.Generic Scan(loop_body) ; 
begin 
execute loop(Vertex_List); 
end; 
New Line; 
end Pulte Vererecs,, 


me ee ee ee a a ee ee ee ee ee ee ees es ae ee a 


mm cp me me mm mr me me me ee 


procedure Put Edges (G= ine bod Gran aes 
Edge List [ Bage woes, 
Latency tame; Mililisec, 


pega 
Edge Set Pkg.Assign(Bdge List, Psdl Graph Pko (Rages (Gee 


--/*foreach([E : EDGE], 


[ 
—-/* [Edge Set Pkg Genericmoecani, 
saf* [Edge Eise|, 
——/* [ 
—=/* Put (Htab & Htab & Htab & "EDGE "  & 
a= E.Stream Name.s & " "); 
==) * Latency Time := 
-—/* Psdl Graph pkg.Latency(E.xX, E.Y, E.Stream Namemere 
el a if Latency Time y= 0 then 
--/* Put(": " & Integer'Image(Latency Time) &" ms "); 
==/* enGdmack; 
—--/* PUL Tine (BX S66 a ee eee) 
Saye ie) 


-- Begin expansion of FOREACH loop macro. 


declare 
procedure loop body(E : EDGE) is 
begin 
Put(Htab & Htab «wigan. f — EUGE " & E.Stream Name.s &" ")% 


faren ey slic a 
Psdl Graph pkg.latency(E.X, E.Y, Bi Strean Name, 
if Latency Pinew—"Usrnen 


Put(":> ™ &-Integer” image (Lateney (fame) is sis we, 
end: 1; 
Put Line (hes a ony 


end loop body; 
procedure execute loop is 


new Edge Set _Pkq.Generic Sean (loco lecera:, 
begin 
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execute Toop (hdge, List), 
end; 
New Line; 
end Put_Edges; 


begin => FuUCRGrapn 
New hine; 
Pur suine(Htab 4 Htab ¢ “GRAPH” ),; 
Puc. Vercices (G); 
Puc, Badges (G); 
end Put_Graph; 


ee wm cw we rm rm em we me me we ww mw ee we ww we wwe we we we we ae ae ee 


ee a a ee ae 


PX ee-duves ut. Control sonst rainus (Co .in Composite Operator) is 


TMleeCp. 10 Seon .t0 Set eR ENpUy ld Ser; 
Local Id eee Sai id; == GO Getzaround Verdi x bug 


HMmMetiomevecr 1Ges 4G.) FodlyGraphy return 10 See 
renames Psdl Graph Pko.Vertices; 


e-pacraje!t 10 ls New Bmumecration IOCIRIGGER DYE); 
Pacxage TimvOPsto 15. newsboumerat lon TOC TIMER OF CID); 


mmm ae ee eee i 


rm eae ea 


PrOcccUrc rut Triggers (O. Name > -PsdliG; 
- Map 2a irigger Map)7is 


Die io logger "hee ~ finigger Record; 


begin 
--ey SUL tie Eraggers fOr each operator if they exist .*/ 
if Trigger Map Pkg.Member(O name, T Map) then 
Pub (hHtab & Htab ££ Htab. s& * “ITRIGGERED ™),; 
WNerlraggerwnec-.— Trigger Map Pko.wkretch(?T Map,;-O name); 
hee, eLOgew he i poe Yo ALE Acer 
PUB ee -ALa je: 
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Put Id bList(The Trigger Ree sercansy, 

elsit Thevlriqger Rec.i lee OVE echo 
Put BYSSOME =); 
Put Id List (The Trigger Rec.Streams),. == 12 mene 

—— then do ne@e@nam, 

end if; 

if not Exec Guard Map Pkg.Member(O name, O.Eg) then 
PuE (AS Gus, be), 

end if; 

end 11; 
end Put Friggezs, 


mmm mw wr rw mw mr cr rc cc we we we ee ee 


mm mr we we we wees wes we we wees we oe ee ee Ce 


procedure Put Exec Guard(O Name : Psdl Id; 
EGuMapy Ex erCudecy Map) sats 


The Exec Guard Expr |) Bxpressioen, 


begin 
if Exec Guard Map Pkg.Member(O name, Eg Map) then 
The ExXee evares pea. — 
Exec Guard Map Pkg.Fetch(Eg Map, O name); 
PUC Line(” TES os. Tiegh] ey GC verse eee s) 7, 
end if; 
end Put_Exec Guard; 


omc mw cr wr cr cr cr cc ce cr ec ee ww we we ee ew 


== OUCDUL LimingS “for Cach eperator a: vex ces 

procedure Put Timing (Key ; An PSsdigeia, 
Tim Map : in Timing Map; 
TimanguMessage: .1n Strang ms 


Time Vail: Mil ivsee 0, 
begin 
-= Check if €ilming exists for each “operaror 
-= 15 [exists print hem soma 
if Timing Map Pko.Memben(Key, TimoMap) einen 
Time Val := Timing Map Pkg.Fetch(Tim Map, Key); 
Put (Htab 6 Htab & Htab 6 " "™ § Timing Message); 


IG 


Put bine (Integer  amaget Timer Val) 6 ~ ms"), 
end if; 
end Put Timing; 


ee a eee ee es 


Puecedire «Pur OutpuL Guard(O (Name.: Psdl id; 
OgeMap . OUT Guard Map) is 

begin 

=, M4 >mMacro code 

Saeco reac (Old. OOEpUt 1d, --E: Expression |, 

ae [Out Guard Map Pko.Generic Scan], 

id [Og_Map], 

= [ 

=e rEg tOrName, wo Pa sOp) at hen 

is Put (Htab & Htab & Htab); 

=> Putty, OUTRULIN); 

== PUL (OL te. otreames ); 

=> Pigerinet” traces Es): 

== end if; 

es py 


=) SeGinwexpanS i101) Of (FOREACH Joop macro. 
declare 
procedure loop body(O Id: Output _Id; E: Expression) is 
begin 
if Eq(O Name, O_Id.Op) then 
Put (Htab & Htab & Htab); 
Port) OU re Uae 
PUG(OlIC, Strean.s ); 
PUG Ine (el ee aS); 
ena it; 


end) Jeep. body; 
Breecedure yexecuce 1 OCD 41s 
new Out _ Guard Map Pkg.Generic Scan(loop body); 
begin 
execute _loop(Og Map); 
end; 
enucvPucyOULrpuUL (Guard; 


— crc crm cr cr me wes wes ee eee eee ee ee ee ee 


=~» OUEPUE- timerrop. for Gach operator if exists 


_—_—— Oa wr wr ee wees wees wee wees we we ee ee ee ee ee ee ee ee ee ee ee ee 
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procedure Put_Timer Op(O_Name oP Saeed, 
1 Op Map = Timer OpeMae eis 


= The lames Coase s fimer Op, 
The Pie ms Op maior - Timer sOpwSer; 
begin 
—-- /* Check if timer op exists for each operator de 


if Timer Op Map Pko Member (Ounane 7 TeOom lade see dem 
Thies limer Opell ots. 
Timer Op Map Pkg.Fetch(T_Op Map, O name); 


--foreach( (the Timer Op kee. fimersep |: 

=z [Timer Cp ese ee koeCencuies cam |: 

—- [The Timer Op List], 

-~ [ 

= Pit (Hiab S| Hira se nicdies s= jc 

i Tim Op” toc Puriihe jlimer Op Ree Cpmtdy, 

alee Put (" LIME Ra 

== PUL (ihc) Pime es Ope hee ramen lds), 

ae Put Line(" IF " & The Timer Op Rec.Guard vag 
-- 1) 


-- Begin expansion of FOREACH loop macro. 


declare 
procedure loop body (the Timer CpVree.: = liner Op) ame 
begin 
Put(Htab 6 Htabs< Htabs) |e 


Tim Op Io.Pue(the TimereGpe kee sep id); 

Put) TIMER, oy, 

Put (ihe Tamer Ope Ree. Tate saecmee, 

Put Laine(” IF es The Timers p eee. Guard .s)q, 


end loop body; 
pLrOCeAUTe exeeHte 1O0p 15 
new Timer Op Set_Pk¢g.Generie cea (loop bode 

begin 

execute loop(The Timer Op List); 
end; 

end if; 
end FE nile Time ao, 


==" OUUDUL —ExXCepE1OnN triggers 101 Gach Operator 11 Exists 
proceaurcarlu Excep. Trigger (Oo. Name - esd lid, 
Et Map 7 ExCep, Triccer Map) 1is 


begin 

—aoOneach (1b Ta ss excepsid, bE: Expression), 
pExcCep Trigger Map Pra Generic Scan), 

== [Et Map], 
[ 
of 


f EBatO name, BE -1d.0Op) then 
—- Put (Htab & Htab & Htab); 
== Putt” “EXCEPTION ™) 3 

-- PUGYEDIGe=ExXcep.s ); 

-- Pub eae (eae 16 ER eS); 
alas end 11; 


== )) 


== SCOln expansion Of FOREACH loop macro. 
declare 
procedure loop body(E_ id: Excép Id; BE. Expression) is 
begin 
PieEo(Oevene, Ee las.0p), then 
Put (Htab & Htab & Htab); 
Pont. EXCEPTION? a); 
PUR: LaSExcepas. 3; 
Poe shane he ass), 
end if; 


end loop body; 


Procedure -exccurce loop is 
new Excep Trigger Map Pkg.Generic Scan(loop body) ; 


begin 
Sxecuce LOOp(EL Map); 


end; 


end Put Excep. Trigger; 


began pore uemCent rol Constraints 


Tideeer sr kgrassign(ine Op 1d Set, vertices (Co.G)); 
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Put Line(Htab & Htab & "CONTROL CONSTRAINTS") ; 


~-foreach({[1d 9; Psdi_ dj; {1a ser Pko: Generterscoa, 

= [lier epe laser |. 

a [ 

== Local Id := Id; 

a Put _Line(Htab & Htab & Htab & "OPERATOR " &Local_Id.s); 
a= Put Triggers  s(toca lta Co ira), 

a= Put Exec Guard (Locaisatd,, Co-bg7, 

== -- /* Put the timings if exist */ 

== Put Timingiocal ia sGo.rer,) EER LODE, 

a Put Timing (Local 1d, @@o-Fw, "PINTSH WITHIN (oe 

as Put Timing(Local Id, Co.Mcp, "MINIMUM CALLING PERT@RIE 
i Put Timing(Local Id, Co.Mrt, "MAXIMUM RESPONSE TIMER 
= Put OutputyGuaned (Locale ia, 7Ce.00), 


+7 Put Timer Op (Locale ld co- Tam Op), 
—- Put. Excep. [ragger (boca leita aco HE); 
= New Line; 


=] }) 


-- Begin expansion of FOREACH loop macro. 


declare 
procedure loop body (id Fsdlela) is 
begin 
LO¢a ie = ld, 


Put Line(Htab & Htab & Htab €) OPERATOR " & Local lage 

Put Triggers (Local Id) (Co .laag), 

Put sExec, Guard(Eecalvic, (corn: 

== /* PUte ene CAMingseasiesecc ic cmele | 

Put..Timingtbocal sid, Cc fer. SEER lore in, 

Put Timing (toca id Co .Ew, "FINISH WITHIN "); 

Put Timing(Local Id, Co.Mcp, "MINIMUM CALLING PERIOD "); 
Put_Timing(Local Id, Co.Mrt, "MAXIMUM RESPONSE TIME "); 

Put Output Guam (located Geog), 


Put Timeraus (Local 10, 3eo. Timp: 
Put Excep  irigges tocamena, Co.bE), 
New_Line; 


end loop body; 
Procedure exceutec. [Oop gic 
new Id Set _Pkg.Generic_ Scan(loop_body); 

begin 

execute _loop(The Op Id Set); 
end; 
-~- LIMITATIONS: Square brackets are used as 
-- Macro QUOLING genhanracters, 
-- so you must wmaere [[xij\in the m4eseurce file 
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-- to get [x] in the generated Ada code. 
-- Ada programs using FOREACH loops must avoid the lower case 


spellings of 


begin 


Put (Htal a 
if Component Gramuiawir) (2)a= 
Co 
Put. Graph (Go.G a 
Put Type Peer (Ge i ., 


the identifier names "DEFINE", “UNDEFINE", 
Or must quote them like this: [define]. 
The implementation requires each package to be generated by 
a separate call to m4: put each package in a separate file. 
Exit and return statements inside the body of a FOREACH loop 
may not work correctly if FOREACH loops are nested. 

An expression returned from within a loop body must not 
mention any index variables of the loop. 

End expansion of FOREACH loop macro. 

Put , Cont rolmeens trcanins, 


and "DNL", 


“IMPLEMENTATION "); 

Composite then 

:= O; 

put Graph 


"DATA STREAM"); -- put data Streame 


Put. 1d bast (h(a. ines Pee = pute bImeias 
Put Control @erstrai nes (Geir, -- put control Const mceeaie 
Put Text (Co.Impl Desc, "DESCRIPTION"); -- put inf. descripiamen 


else 


Put bane (“ADA 680.0 Ada Namero) 7 


== put ada name 


end af; 
PUL Lanett ab sae END a 
New Line; 
end Put Operator Implementation, 


Procedure ute pe Imp lememedetenm (a= 


ee ne ee en en eee ee 
es es es ss ss es es ae a ee 


ip Data lye) ma > 


O: Operator; 


begin 


Put ("IMPLEMENTATION 
if Component Granularity(T) = 


Bete 
Composite then 


Put Type Name(T.Data Str); 
New Line; 


declare 


procedure Loop Body (Id is 
begin 

OO”: = ©p ad I; 

PUL Lime (HtabW@ “OPERATOR? & Idec, 


Put _ Operator Implementation (ee 


in Psd ta sop gi 6) Mec, 
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New Line; 


end Loop Body; 
procedure Execute Loop is 
new Operation Map Pkg.Generic Scan(Loop_ Body); 


begin 
Execute Loop(Operation Map Pkg.Map(T.Ops)); 
eng, 
else 
BUG eae ADRS Sor dt Ada sName.5 7 
end if; 


Put _Line("END"); 
end Puc lype Implementation, 


begin 
declare 
Brocedure Loop Body (lay: in Psdi -id;.Cp + ian, Compenent Ptr) 
begin 
C6 *e=Cp.ali; 
PuLsComponent Name (C); 
i seOmponent ecateqory(C) = Psdl Operator then 
Cae = GC; 


Put Operator Spec (0); 

Put Operator Implementation (0); 
Cree 

T=, 

Put Type Spec(T); 

Put Type Implementation (T); 
end if; 


end Loop Body; 
procedure Execute Loop is 
new Psdl Program _Pkg.Generic Scan(Loop Body); 
begin 
Bxecuresloop(Psdl Program Pkg .Map(P)); 
end end Puce esol. 


is 


APPENDIX I. PACKAGE PSDL CONCRETE TYPES 


————_ 8 6 6 * © © =) ee <= ca <6 
oeoee @ © © © @ © 8 


==) DS Gimeusac 

-- Unit name >: Specification of package psdl concrete types 
ais ekilsy jolelals Sp Seieeescad 

== AE Wo rm >: Valdis Berzins (berzins@taurus.cS.nps.navy.mil) 
-- Date Created : December 1990 

=— Modified by >: Suleyman BAyramoglu 

-- Address : bayram@taurus.cs.nps.navy.mil 

-- Last Update > {Tue Sep 24 02:00:10 1991 — bayram) 


-- Machine/System Compiled/Run on : Sun4, SunOs 4.1.1, 
== Verdix Ada version 6.0 (c) 


mm ew we we we we ee ew ewe we we ee ee we 


-- Keywords : abstract data types 


== Peoeeace : 
=< Provides the supporting types to PSDL ADT 


=--S SoOUree: 

-- /n/gemini/work/bayram/AYACC/parser/psdl ada.1lib/RCS/psdl cUsS tay. 
== SR Cviol OM eelie goes 

=—-SDate sol, 05724705 064 

--SAuthor: bayram §$ 


mmm mm ee ce ee we we ce ce cm ee ee we we ee ee ee ee ee ee ee es ee 


-- Modified “(Fri Aug 30-19-27 759 1901 = boven, 
-- Provided function Eq for generic map and SeE inStatiations. 


with A_ Strings; 

—- See verdix library “standara = 
with Generic Set Pkg; 

-- Defines a generic set data type. 
with Generic Map Pka, 

-- Defines a generic map data type. 
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Bacnage “Poul CONCRETE ST YPE PRG «1s 
Subevoe: MiILLTSee is NATURAL; 


type TEAL Po OW eros Sey SE ng ; 

type ADA_ID PS evew on Slings 7 Ah SLr ind, 

type Bolts tD iS New A-Strings.A String; 
subtype VARIABLE 1s PSU au, 

type EXPRESSION 18 New A Strings.A. String; 

EOE etext remmcOnsranty tht = TEXT(A Strings. Empey); 
PWnecion EG(x, y: Psdl id) return BOOLEAN; 


PURGEION EQG(x,, vy: Expression) return BOOLEAN; 


package Id Set Pkg is 


new Generic Set Pkg(T => PSDL ID, 
BiLOCr SotzZe = 46, 
Eq => Eq); 


subtype ID SET 15.10 Set. Pk¢.Seét; 
FUumeet on Enpty 1d-Setprecurn 1D SET; 
=> RELUINS an empty set. 


Package Init Map sPkg is 
new Genericg Map Phog(key So Poy, 
Result => EXPRESSION, 
EQ hey —> iba, 
Eq Res @=2 Eq); 


subeype INIT, MAP is Intt o Map Pkhg.Map; 


fuUnEr On Empty Init Map return INIT. MAP; 
—— KREEUIOS 2h empey iit” map, 


Package Exec Guard Map Pkg is 
new Generic Map Pho (Key =? POUL 1D, 
Result => EXPRESSION, 
Eq Key => Eq, 
EQ hes '=7~ EG); 
subtype EXEC _GUARD_MAP is Exec Guard Map Pkg.Map; 


function Empty Exec Guard Map return EXEC GUARD MAP; 
=~ KeLUrnS vam enply @xec Guard. map; 


Ey ve OUTPUT 1p 1s 


Weis: 


record 
Op; Stream 7 GPscUE Ey, 
end record; 


function Eq(x%, Y: Out pun a ecole peetean, 


package Out Guard Map PKg is 
hew Generic Mapserg (key =e OUTPUT LD, 
Result => EXPRESSION, 
BOeRSY => 2hC, 
HOP RES =7 05g 5, 


subtype OUT GUARD MAPSis Out Guard Maparkg Map, 


function Empty Out Guard Map return OUTIGUALD EMAL, 
=> REtCUrnS an Empey Souler ouc sonmap, 


type EXCEP JP is 
record 
Op, .EXcCep. i sPebhoir, 
end record; 


function Bq(%, 1) Exceplid MreceuamaEcolcan, 


package Excep Trigger Mapi yg is 
néw Generic Maperng (ney =" 2 GEE eLD, 
Result => EXPRESSION, 
BQUKGy =>) EG; 
EG SRe Se ae); 


subtype Excep Trigger Map 1s (Excep Trigacr MaeeE io. Map, 
function Empty Excep Trigger Map return Excep Trigger Map; 
-— RELUENS “an empty sex Cepat uigger map, 


type TRIGGER IYPE 125 (BY ALE BY SOME, NONE. 


type TRIGGER RECORDei. 
record 
Tis: TRIGGERSIYE Ss, 
Streams «; Peesi ey, 
end record; 


package Trigger Map Pkg is new 
GenemrcoMaperng (key =" Poulin, 
Result => TRIGGER RECORD, 
EQ hey.— > Eq), 
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subtype TRIGGER_MAP is Trigger_Map Pkg.Map; 


PUnceLon Empty Trigger): Map 2eturn TRIGGER MAP, 
=— PeCeCUrnISralh eMply trigger Tap; 


Gypes TIMER OP 1D 15) (START, STOP, RESET, NONE); 
type TIMER OF is 


record 
Op_Id : TIMER OP_ID; 
Timer _Id ; PsDL ID; 
Guard ~ ESPREoS LON; 


end record; 
Pachage. Timer Op Ser, Pkg 1s 
new Generic Set Pkg(T => TIMER OP, Block Size => i); 
subtype Timer Op Set is Timer Op Set Pkg.Set; 
package Timer Op Map Pkg is 
mew Generi¢ Map Pro (Key = eho hsb; 
Result => TIMER_OP_SET, 
Eq Key => Eq); 


subtype Timer Op Map is Timer _ Op Map Pkg.Map; 


function Empty Timer Op Map return Timer Op Map; 
ee RETUINS eaneeniply Timer Op map; 


package Timing Map Pkg is 
new Generic Map Pkg(Key => PSDL_ID, 
Result => MILLISEC, 
Eq Key => Eq); 


Subtype TIMING MAP as Timing Map Pkq.Map; 


function Empty Timing Map return TIMING MAP; 
= -9heburns am empty timing map; 


type TYPE NAME RECORD; 
~- Forward declaration. 


type TYPE NAME is access TYPE NAME RECORD; 
-- The name of a psdl type, with optional generic parameters. 


pPacrage Type Peclaratiton FkGq is 
new Generic Map Pkg (Key =P Poi. 
Result => TYPE NAME, 
Eq Key => Eq); 
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subtype Type Declaration is Type Declaration Pkg.Map,; 

-- A psdl type declaration 18S a map from psdl identifiers 
== £0 psdl type namesge 

-- The default value of a type declaration map is 

=-the nud permier. 


type TYPE NAME RECORD is 
record 
Name” = PSDinin, 
Gen Par : Type Deeclararasm, 
end record; 
-- The generic parameter map is empty if 
-- the named type 1S not generic. 


function Empty Type Declaration return Type Declaration; 
-- Returns an empty type declaration map. 


end PSDL_ CONCRETE TYPE PKG; 


— * * © © &©& © @® ®& #2 2 8 @ 
so 2s 8s @ © © @ @ 8 8 @ @ 


==) Ded Berbera 

=—- Une Name : Implementation of package psdl concrete types 
~ = Fale ei ame 2 pps dh Ce baa 

== Autmes ? Valdis Berzins (berzins@taurus.cS .nps:navye moe 
-- Date Created : December 1990 

== Mogdiitteg by >: Suleyman BAyramoglu 

-- Address > bayram@taurus.csS.nps.navy.mil 

-- Last Update ; {Tue Sep 24 02:00:10 199ie = bayram 


-- Machine/System Compiled/Run on 2 sun4, Sun@se4 ae 
ae Verdix Ada version 6.0 (c) 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee es ee we es ee i 


-- Keywords fabStracke Casas nypes 


== ADSt race : 
aS Provides the supporting types to PSDL ADT 


Z02 


sae oOurce: 

-- /n/gemini/work/bayram/AYACC/parser/psdl ada.lib/RCS/psdl ctb.a,v §$ 
=—oReCVILS Ons  1e6 "1S 

ae oDate, lool UIs2 Us; 0920) 7S 

--SAuthor: bayram §$ 


em rc we we cr ww wr wc wc we we cr ce cr ee ee eee ee ae ee 


=~ eReVi Sioned .-- 1991/08/24 00:36:00 ‘bayram 
-- Modified to incorporate the new set and map packages 


— << 


package body Psdl Concrete Type Pkg is 


use Ia >SetvPkq, Timer Op Set Pka; 

use Init Map Pkg, Exec Guard Map Pkg, 

Use) Outs Guard Map Pika; 

use Excep Trigger Map Pkg, Trigger Map Pkg; 
use Tamer Op Map Pkg, Timing Map Pka, 

mse Typesveclaral ion Pha; 


Empty Expression :; constant Expression 
J EXDECSS OAR oer ings semper y)) 


EuUmMCCion Empty “iad Set return id Setris 


S : Id Set; 
begin 
Empty (S)> 


reeuL nao, 
end Empty Id Set; 
js KeLUrNS. all elpty Set: 


-- Overloaded functions for generic instantiations 


PUNGEDCH EG IxK, yi PSsal. 1d) 
return BOOLEAN is 
begin 
TCeUrEI Acs = Y vor; 
end Eq; 


function Eq(x, y: Bxpression) 
return BOOLEAN is 
begin 
TetCuri (yo = sy o)e 
end Eq; 
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function Eq (>, Y: 2 Ouueutela) 
return Boolean is 
begin 
return(Eq(X.Op, Y.Op) and Eq(xX.Stream, 1. Stream)); 
end Eq; 


function Eqix %.  Exeep etd) e-erumn boolean. 
begin 

return(Eq(X.Op, Y.Op) and EHa(X.Excep, Y-Excep) ); 
end Eq; 


function Empty Init Map retumny 1iteapers 
M > 2nit Map; 

begin 
Create (Empty Expression, M); 
Beth mM, 

end Entipty init Map, 

== ReLUrNS “an -eMpty sin eamap,, 


function Empty Exec Guard Map 
return BXEC Guards Map as 

Mo Exec Guards Nap, 

begin 
Create (Empty Expression, M); 
return M; 

end Empty Exec Guard Map; 

—— Re€CurnS ai empty e€xeerguacaumap, 


function Empty Out Guard Map 
return CULy Guard Magy ts 

Mo CuUGe Guard Map; 

begin 
Create (Empty Expression, M); 
LeLurneM, 

end Empty Out_Guard Map; 

=— Returns an emply Sut rgua me amas, 


function Empty _Excep Trigger Map 
return ExXGep. lragoe eaMacres 
M > Bx€ep Tr roger Map, 
begin 
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Create(Empty Expression, M)j; 
return MM; 
end Empty Excep Trigger Map; 
-> RELUInS anvempty excep trigcer map; 


tumction Empty Trigger Map 
teturn Trigger Map is 
X : Trigger Record; 
Me Trigger: Map, 
begin 
X.Tt := None; 
X.Streams := Empty Id Set; 
Create (xX, M); 
a = ano a @ ae 
end Empty Trigger Map; 
SoeRelLUrns dal cempty trigger map, 


Bumet son Empty Timer Op Map return  limer Op Map is 
X : Timer Op Set; 
Me Lime Op Map, 
begin 
Empty (X) ; 
ereqvew- M); 
GeCur hn MM; 
end Empty Timer Op Map; 
ware e Urs Al empty timer top map, 


function Empty Timing Map 
return: tiamng Map 2s 

ts Tamang, Map; 

begin 
Create(0, M); 
return M; 

end Empty Timing Map; 

ear nClUrNS an embry “Ciming map; 


function Empty Type Declaration 
Peturn Type ec laratlon. us 


X : Type Name := null; 

Ma; type UPeclaratl on, 
begin 

Creare(x~,, M); 

return M; 


end Empty Type Declaration; 
-- Returns an empty type declaration map. 
end Psdl Concrete Type Pkg; 
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APPENDIX J. SPECIFICATION OF PSDL GRAPH ADT 


—_——_ * © © © © © © © © &€ 8 @ 
* 28s © © e©& © #® © © ® © # 


meee * * © © © © © © © © 8 
ee ee © © © ®@ © © © 8 @ 


aS iat. name * Peciticartiron cf Psdl Grapn ADT 

eae ee tiame sypsecl crap S.a 

=—-SAULROL ; Valdis Berzins (berzins€taurus.csS.nps.navy.mil) 
-- Date Created : December 1990 

== Modified by >: Suleyman BAyramoglu 

-- Address : bayram@tauruS.cS.nps.navy.mil 

== hast Update fet tue soep. 24 02-00 flO. 199! o=bayram!} 

==, Machine/system Compiled/Run on > -Sun4, Sun0Os 4.1.1, 

-- Verdix Ada version 6.0 (c) 

-- Keywords : abstract data types, graphs, PSDL 


= whose rack : 
—— Provides the Supporting types to PSDL ADT 


= SSOUrCe: 

ea 7 Gemini /wOrk/bayram/AvACC/parser//RES/psdl. graph S:a,v 9 
Se oRevis On 5. Ss 

maa ce mle ol, O97 24. 09.39.35: 5 

=~-oAUthor: bayram $ 


comme cr crm cr wc we wc cw cr wr ww cw ee ee ee a ee 


-— we nm nm a — SS SS SS SS SS SS SS = REFERENCES Seer serssoSeSeres== 
-- [1] Reference Manual for the Ada Programming Language, 


= Aol MiE—s lS ei SA-1903. 
Sara ey -s Or re ee er sr CS SE SE Se SE SE SE Ee ee ee SES LIBRARIES, de Game =—SSSS SS SS S>=> 
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-- PSDL CONCRETE TYPE PKG 
=— (GENERIC SE TIE RGedetincs a Ccherie scent seyee 


-=" GENERIC MAPOPKG ceri nes sa5Cciea teed yee 


with GENERIC MAP PKG, 
GENERIC_SET PKG, 
PSDL_ CONCRETE _TYPE_PKG; 


use PsD UD UCONCKET EST YER ring, 


package PSDDJGRAPHIEKG is 


type PSL) CRAP Hes jevivare, 


-- An EDGE represents a data stream from operator X to operator Y. 
-—- Since there can exist more than one data stream between X and Y, 


-- the name STREAM NAME identifies a unique data stream. 


-- In this way, the use ofSTREAM NAME allows several streams 


-- with different names to connect the 
-- Same pair of operators, X and Y. 


type EDGE is record 

Xy 

ee 

STREAM NAME : PSDL_ID; 
end record; 


package EDGE SET PKG 1S) 
new GENERIC JSET PKG(t —> EUGE, bleeagerze —> i), 
subtype EDGE SET is EDGE SET PKG.SET; 
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-— Returns the graph with no vertices and no edges. 
function EMPTY PSDL GRAPH return PSDL GRAPH; 


function ADD VERTEX 


OP 31D PSD 2D; 
G PSDL_ GRAPH; 
MAXIMUM_EXECUTION TIME : MELLISEC =. 07 


return FSD. GRAPH, 


function ADD EDGE (x, 


Y, 

STREAM NAME : PSDL ID; 

G : PSDL GRAPH; 
LATENCY : MILLISEC = 0) 


return PSDL_GRAPH; 


Seino Venn) POnurns TRUE -e 
Sa eiic. OM yh ee iD aS a) VeTtex am 7G: 
PUCCE Onna ER ek (Ore Ip FSpL ID, 
G : PSDL GRAPH) 
return BOOLEAN; 


eo DGE () returns. TRUE if and enly -1f 
—— there exists an edge from vertex 
==— 2A7 10° Vertex Xin) G, 
fuUnCE Ton HAO SEDGE, Yo FSeb- 10; 
G : PSDL_ GRAPH) 
return boolean; 


== STREAM NAMES() accepes arguments for vertices and the graph. 
—- The function returns the names of the data streams 
== COMMeCEINGO,Operacor xX and operator. Y. 
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-- The result can be empty if there are no streams 
-- between X and Y, and it can have more than one element 
==) if several strcamsSuconnece = and Y- 
function STREAM NAMES (X, 
te PSDEety, 
G> PSDE GRAPH) 
return id_set; 


-- The maximum execution time allowed for the operator V. 
function MAXIMUM EXECUTION TIME(V: PSDL ID; 
G: PSDL_ GRAPH) 
return MILDISESe, 


-- The maximum data transmission delay between 
-- awrite operation by 

-- operator X on the given stream and the 

==) COrrespOncing mead operation oy 

=> » Operator er. 

function LATENCY ty; 


Y, 
STREAM NAME : PSDL_ID; 
G : PSDL_ GRAPH) 


Meturn MELE LSE - 


-- The maximum data transmission delay between 
-- the last write operation 
-- by operator X and the first read operation 
—~= (by Operator Yo Zero 2f 
-- there are no edges between X and Y, 
-- the largest latency of the edges if 
-- several edges connect X and Y. 
FUNCE LON “LATENCY, 
Yel. ID; 
GG; -PSPr GRAPE) 
return MILLISEC, 


-= “The set of all) vert teesean Ge 
function VERTICES(G = PSvbeGRArr 
return 1D SET, 


-- The set of all edges in G. 
function EDGES (Gah SDL GksrH) 
Keburn EDGR OBL, 
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=—) Theo ser of all vertices U with an EDGE from: Vv :to: UW in G. 
PUneCULony SUCCESSORS. (Vy = Se oui ID, 
Gee PSe le Gree) rerurn 1D SET, 


==) Then set Of alivvertices U with an EDGE from U to V in G. 


PUMCE Von, PREDECESSORS (VV. PoUL 1D; 
Ge eSCUL GRAPE) eturm 1D 557, 


private 


package MAXIMUM EXECUTION TIME MAP PKG is 
new GENERIC MAP PKG(KEY => PSDLOID, 
ResULT —2 MIELE ISe®); 


type MAXIMUM EXECUTION TIME MAP is 
new MAXIMUM EXECUTION TIME MAP PKG.MAP; 


Package, LATENCY MAP SPKG.15 
new GENERIC MAP PKG(KEY => EDGE, 
RESULT => MILLIESEC); 


=Vpe LATENCY MAP is new LATENCY MAP PKG.MAP; 


Cy pens oul GRAPH as record 


VERTICES See, 

EDGES : EDGE SET; 

MAXIMUM EXECUTION TIME : MAXIMUM EXECUTION TIME MAP; 
LATENCY : LATENCY MAP; 


end record; 


end PSDL_ GRAPH PKG; 


Pi) 


APPENDIX K. IMPLEMENTATION OF PSDL GRAPH ADT 


emcee me mw cr cr cr cr ce cr cr cr cr cr cr wr cr cc cc ce cr ce ce ce we ec es es ee ae ae ee a a 


== Unie. meme : Implementation of Psdl Graph ADT 
-- File name : psdi_ graph b.a 

—— Modi tieceby : Suleyman BAyramoglu 

~- Address >: bayram@taurus.cs.nps.navy.mil 


—-- Last Update t~{ Tue 2oepe 24 702200. 10 299i" — bayram) 
~~ Machine/System Compiled, hineeny = sn4 ones s 4 ie, 
-- Verdix Ada version 6.0 (c) 


em mmr mr mc ce cc ce ee ee i ee 


—-- Keywords >: abstract data types, graphs, PSDL 


==. ADStract : 
== Provides the supporting types to PSDL ADT 


-~-$Source: /n/gemini/work/bayram/AYACC/parser//RCS/psdi graph bvay ve 
—-SRevision: 1.3 $ 

—-SDate: US eo7 24e Oo. o2 0 ee 

~-SAUbaer. Bayram > 


comm cc ce wc cc cc cc ce ec ww ee cc ce ee 


-—-  4----------~~-ss=====58555825255===SS55855 5555 SSS SSS Ee5S5SSS=== 
-- | 

a CONSTRUCTOR OPERATIONS 

-- | 

Wwe fee e enn nn i eee SS SS EE SS ee SSS a ae eee aa SS ea SS SSS SS 


to 
bee 
to 


EVMETY esl lL Gharhe. sheturns the onaph with no vertices sand no edges. 


bSsesmehie7 fUncurol EMety sip SE from FSDL»CONCRETESTYPE PRG, 
procedure 

EMPiy<)) from GENERIC SET PKG, 

and procedure CREATE() from GENERIC MAP PKG. G is the 

new (empty) PSDL GRAPH that gets returned to the caller. 


Function EMP IY PsDLY GRAPH return PSbL GRAPH 2s 
Ge PSDElGRaAr i, 
begin 


G.VERTICES := PSDL CONCRETE TYPE PKG.EMPTY ID SET; 
EDGE SET PKG.EMPTY(G.EDGES) ; 

CREATE (0, G.MAXIMUM_ EXECUTION TIME) ; 

GRRATE (07°C LATENCY) - 


return G; 


end EMPTY PSDL GRAPH; 

-- ADD VERTEX: Adds a single vertex (labeled OP_ID) to G. 

== The caller may specify a MAXIMUM EXECUTION TIME for the vertex or 
a accept the default of zero. H is the new PSDL GRAPH. That is, 


-- H = G + (the new vertex). 
PUMGELONeAOP VERTEA(OPSTD] . PSDE_ 1D; 
G ; Pov GRAPH, 


MAXIMUM EXECUTION TIME : MILLISEC := 0) 
Rel Utne SDL GRAP iC arS 


Peet OO ORAE He; = Gy 
begin 
-- Add OP_ID to the vertex set and then use 
-- the GENERIC MAP PKG procedure 
s= sR IND (SO bind The Or 1D Gor2ts MAXIMUM EXECUTION TIME and 
-- updates the new graph's map accordingly. 
PSDL_CONCRETE_TYPE_PKG.ID_ SET PKG.ADD(OP_ID, H.VERTICES); 


BIND (OP_ID, MAXIMUM_EXECUTION_TIME, H.MAXIMUM_ EXECUTION TIME) ; 


PNG, 


return H; 


end ADD VERTEX; 


ADD EDGE: 


The edge takes on the name STREAM NAME, 


Adds a directed edge from X to Y in G. 


supplied by the caller. 
The caller may also specify a LATENCY for the edge (or accept the 


=o default of zero. H is the new PSDL GRAPH. That is, 
a= H = G+ (the new edge). 
function ADD EDGE(X, Y, STREAM NAME HobDlLe th, 

G 2-P SDL GRAPH CAI ehe. MILLISEC ;= 7) 


return PSDL GRAPH is 


EG EDGE, 
Ho PSD GRAPH S= 3G, 
begin 


Assign to components of the edge E...ADD() 


-- finally, update the LATENCY imap Of He wrth the wiaroument) 
== ior the wedge, &- 

Eax  2= 243 

Bol eae: 


Ee o lL REAM ONAME 2: = SI REA aria, 


EDGE SETIPRGSADD (Eb, 7a EDGhS 
BIND (EB, GATENCY neha ene we, 
return 4H; 


end ADD EDGE; 


comme ccc cr cw rc re ec ea ei 


HAS VERTEX () 
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the edge E to HJ Jeane 
LATENCY 


em ee ee ee ee ee ee 


returns TRUE if and only if OP_ID is a vertex ingiee 


function HAS VERTEX(OP 1D: PSDL ID, 
G . PSDL GRAPH) 
return BOOLEAN is 


begin 


reLurn 
PSDL CONCRETE TYPE PKG.ID_SET PKG.MEMBER(OP_ID, G.VERTICES) ; 


end HAS VERTEX; 


=-—- HAS EDGE() returns TRUE if and only if there exists 
-- an edge from vertex 
eevee OL VeLCCK din .G: 


== First we find the LAST INDEX for the EDGES of G, 
=o then we loop from 

== the first to the last ELEMENT and compare X and Y. 
as If we obtain a 

— match at any time, we return TRUE. 

== If we search the entire list with 

=F NO PSUCCESS, FALSE 1S returned. 


POAC TON HAS SEDGE UX Yc FSDLSTDy 
G - PSpis Ghar) 
return BOOLEAN is 


e PS SEUGE; 
local x - psdh 1ad:=x; 
locas ¥ wOUSc cy, 
begin 
-- Begin expansion of FOREACH loop macro. 
declare 
procedure loop body(e : edge) is 
begin 


ie. = Vocals) and Thieme. y= slocal yy) then 
Gadse “Sage sel epnCercturn from foreach: 7 
encaat; 


CnGMlcop Dody ; 
Procedure execute loop is 


new edge set pkg.generic scan(loop_ body); 

begin 

execute loop(g.edges) ; 
exception 

when edge set pkg.return_from_foreach => return true; 
end; 
-- LIMITATIONS: Square brackets are used as macro 
=— guoting characters, 
-- so you must write [{{x]] in the m4 source file 
-- to get [x] in the generated Ada code. 
-- Ada programs uSing FOREACH loops must avoid the 
-- lower case spellings of 
-- the identifier names "DEFINE", "UNDEFINE"”, and “DNL", 
—- or must quote them like this: [define]. 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
-- Exit and return statements inside the body of a FOREACH loop 
-- may not work correctly if FOREACH loops are nested. 
-- An expression returned from within a loop body must ner 
-- mention any index variables of the loop. 
== End expansion Of POREACH sloop emacuc- 


end HAS EDGE; 

-- STREAM NAMES() accepts arguments for vertices and the Grape. 
-- function returns the name(s) of the data stream(s) 

—— CONNeECEINgG Operator 

-- xX and operator Y. The result can be empty ii there is no Stream 
-~ between X and Y, and it can have more than one element if several 
-- streamsS connect X and Y. 


a= The function starts by assigning the size of the edge set of G to 
== LAST PENDEX and Makan > an enipty = enor. 
—-="Nexty We loop from 2 wie ad 
= the LAST_INDEX, looking at the EDGES in G. When we find amgepee 
ci from X to Y, the corresponding STREAM NAME is addeam@eouoe 
function STREAM NAMES (4%, 7 = PsbieiD, 
G > PoDipGRAen) 
return peor ss 


e : EDGE; 
S : ID_SET := PSDL CONCRETE TYPE PKG.EMPTY ID SET; 
loca ite : psd ids =— x; 
loCadeey ; Pscdiz ids. sy; 
begin 
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-- Begin expansion of FOREACH loop macro. 
declare 
procedure loop body(e : edge) is 
begin 
Mien eleecati Nh) ane ahem 6.) = “local ~y) “then 
MCeSelL pkG-cdcle {stream name, Ss) ; 
end if; 


end loop body; 

procedure execute loop is new edge _set_pkg.generic_ scan(loop_ body); 
begin 

execute loop(g.edges) ; 
end; 


return S; 


end STREAM NAMES; 


-- The maximum execution time allowed for the operator V. 
function MAXIMUM EXECUTION _TIME(V : PSDL_ID; 
G = PSDL GRAPH} 
POC Vilbotosce as 


-- Value to flag no such vertex in G? 
MET eM LLIsee .= 0; 


begin 


-- Search the MAXIMUM EXECUTION TIME mapping of G 
== for the (key) vertex 

= sve “Lf the vervcex os, round, che corresponding 
ee ime. rs. reeurneg, 

-- else, zero isS returned. 


if HAS VERTEX(V, G) then 

Return PeTChH(G. MAXIMUM EABCUTION TIME,. Vv); 
else 

reuwr MET; 
end if; 


end MAXIMUM EXECUTION TIME; 

~- The maximum data transmission delay between a write operation by 
-- operator X on the given stream and the corresponding 

-- read operation by 
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= sODE rat Ore i: 
function LATENCY (XxX, Yo STREAMBNAME.: PSpinie, 
Gee SP EMCRAPH) 
return MILLISEC is 


E 2 VEDGE; 
Tr : MILDISEC.:-—<0; 


begin 


Boke een 
EeoY S=e-Y; 
E. STREAM NAME 3— STREAV NAME, 


if HAS BPGH (x,y, G) eenen 
return FETCH (G LATENGy.. Ey, 
else 
FreLUnniet; 
Gnd sit; 


end LATENCY; 


-- The maximum data transmission delay between the last write operation 
-- by operator X and the first read operation by operator Y. 

== Zero wir 

-- there are no edges between X and Y, 

-- the largest latency of the edges if 

-- several edges connect X and Y. 


function LATENCY Cy y= PoDnr te, 
Go: PSDLY GRAPH) 
return MILLISEG ws 


E » EDGE; 
L > MILGESEC, 
7 © MILL ESE = sor ; 
leca hex 2 psal Wd =, | 
Oca lay; we jersie JURsats| = y; 

begin | 


of HAS EDGE XG eee eed 


-- Begin expansion of FOREACH loop macro. 
declare 


procedure loop body(e : edge) is 





begin 
ieee = Oca lex ands, Ya local Y) “then 


ie t= “PETCH(G LATENCY. E); 
Ti laos ts Chen 
aS, 
end if; 
end if; 


end loop _body; 
procedure execute loop is 
new edge set pkg.generic_scan(loop_ body) ; 

begin 

execute loop(g.edges) ; 
end; 
-- LIMITATIONS: Square brackets are used aS macro quoting characters, 
-- sO you must write [[{x]] in the m4 source file 
—-- to get [x] in the generated Ada code. 
--— Ada programs using FOREACH loops must avoid the lower 
—-wcase spellings -of 
-- the identifier names "DEFINE", "UNDEFINE", and "DNL", 
“= Or Mustre quote them like this: [define]. 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package ina Separate file. 
-~- Exit and return statements inside the body of a FOREACH loop 
-- may not work correctly if FOREACH loops are nested. 
== Aly GXDresSSion returned “irom within a Joop body must not 
-- mention any index variables of the loop. 
== Bnd CxpDalsSilOn Of FOREACH loop macro. 
end 12; 
FeELurIn 1; 


end LATENCY; 
—— The set of all vertices in G. 


PUMeCEFOn VERTICES(G © PSDL GRAPH) return ID SET ais 
begin 


return ~G. VERIICES:; 


end VERTICES; 


== “The set of all edges in G. 


EUNCUT ION EDGESIG~: PSDL GRAPH) return/ EDGE SET is 


begin 
return G.EDGES; 


end EDGES; 


—— The set of all vertices U with an EDGE trom Vv t6o,U in Gc 


function SUCCESSORS (V : PSDL_ID; G > PSDEL GRAPH) return 12 shia 


E ; EDGE, 
5 ; ID SET := PSDL_ CONCRETHRGYE RSE KG she iy tps, 


begin 
—-- Begin expanSion Of FOREACH Loop macro. 
declare 
Procedure Loop bed, (es. sedge 
begin 
if (H.xX = Vener 
ED SET PKG Aur Eee 
end if; 


end loop body; 
procedure execute loop is 
new edge set pko.qeneriG sean loopeysed) |. 

begin 

execute loop(g.edges); 
end; 
-- LIMITATIONS: Square brackets are used aS macro quoting characters, 
-- SO you must write [[x]] in the m4 source file 
-- to get [x] in the generated Ada code. 
-- Ada programs uSing FOREACH loops must avoid tiie 
-- lower case spellings of 
—-—~ the identifier names “DEFINE”, "UNDEFPINE’, and ent | 
—-- Or must quote them like this: [define]. 
-- The implementation requires each package to be generated by 
-- a@ separate call to m4: put each package in a Separate file. 
—-- Exit and return statements inside the body of a FOREACH loop 
-- May not work correctly if FOREACH loops are nested: 
-- An expression returned from within a loop body must not 
-- mention any index variables of the loop. 
-- End expanSion of FOREACH loop maemo. 


returaeo. 
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eno SUCCESSORS, 


-—~ The set of all vertices U with an EDGE from U to V in G. 
fUNSUIOn« PREDECESSORS (7 PopielD, 
G : PSDL_ GRAPH) 
peturn (tUeonr Ss 


E PO EDGE; 
=) elon ea. - er ol CONCRETE TYPE PRG. EMPTY I sEt, 


begin 
-- Begin expanSion of FOREACH loop macro. 
declare 
procedure loop body(e : edge) is 
begin 
if (Ey = Vv) then 
Ts Ee oP MG eADD Hx es bs 
eCnca lt, 


end loop body; 
procedure execute loop is 
new edge set pkg.generic scan(loop body); 


begin 
execute loop(g.edges) ; 
end; 
-- LIMITATIONS: Square brackets are uSed aS macro quoting characters, 
== -SO yOu must write [|x}]} in the m4-source file 


-- to get [x] in the generated Ada code. 

-= Ada programs using FOREACH loops must avoid 

-- the lower case spellings of 

—-.-the identifier names “DEFINE”, “UNDEFINE", and "DNL", 

-- or must quote them like this: [define]. 

-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
== "EX1G ama return statements inside the body of a FOREACH loop 
== May MOL work correctly if FOREACH loops are nested. 

-- An expression returned from within a loop body must not 

-- mention any index variables of the loop. 

—-- End expansion of FOREACH loop macro. 


Beuwyrn yo; 
end PREDECESSORS; 


Snowe oO Sharh ENG, 


to 
to 


APPENDIX L. GENERIC SET PACKAGE 


—— *@ © 6 @ © 8) 6 e 8 © = 6 0 Je te 
oeee fe © © © © © © © © 8 6 


——=_—ie ieee ef 28e © © © © @ © © © @ @ 
e* e« © © © e©& #8 # @ ®# #8 @ @© @ @ 


=SVSSOuree: 

-- /n/gemini/work/bayram/AYACC/parser/psdl_ ada.lib/RCS/set_s.a,v $ 
-— $Date: 19917007 tere... 00 as 

—— SREViSiOn= Glee 


-- This implementation is limited: the Ada ":=" and "=" operations 

-- are not safe or correct for sets. 

-- Use the “assign” and "“genexsegegual. procedures smercac 

-- An Ada limited private type could not used because of restrictions 
-- on generic in parameters of limited private types 

-- (see generic reduce). 


-- You should use the "recycle" procedure on block exit 
== "OR SUDPEOOram 7 ClLurn 

-- to reclaim storage for any local variables of 

-- type set declared in the block 


-- Sets are unbounded, but do not require heap storage unless 
=="(ne 15126 Of ENG Se exceeds srnemelockeoizes 


with Text le, use. texan, 


generic 
type 1 2S private; 
Block Size; in NATURAL. <— 122; 
with funetion HQ(A,) Yoel) Sret ut ie SCO ERAN saa ; 


package Generic Set Pkg is 
CYDe CSET 1S privace, 


procedure Empty (S: out SET); 
procedure Add(x. in TT; 3S) in souLtscE., 
procedure Remove (X: in T; S: in out SET); 


function Member(X: T; S: SET) return BOOLEAN; -- x IN s. 
procedure Union(Sl, S22" im) SET; S32 soul cE) eee oe cre cee 
procedure Difference (S1i, SZ: in SET; (S3] out SET); ~——9s35,— >) ae 


procedure Intersection(Sl, SZ: in SEY; S3: ouressen., 


-- generic 


aoe 


= NAL De OL Mer ISel “eye es pe ivate;” “so Rset7 ti. 
-- package generic cross product pkg; 


function Size(S: SET) return NATURAL; 

function EQual(Si, S2:° SET). return, BOOLEAN; 

BUNCE LON SubSseL (Sl, SZ: SEL)creturma BOOLEAN; 

== FUNectilel Proper —<uUbSeLE(S! 7432. Set) return boolean; 


generic 
Wiehe rinee Om <— y.7..) 1) oreLurm BOOLEAN 15 <>; 
With wonNC lO sUucCCeSSOr(xX:) 1) return T; 


eaocedume Cenerseeinverval(xl,) XZ: inl; S2 Out SET); -—= {x1l <2. 2). 
generic 

type ET is private; -- Element type for result. 

type ST iS private; -- Element set type for result. 


Hiei tunes toner = 1) retary, Bl 125° <>; 

wile OleCeaUme Empty (S Out ol). is <2; 

With VROCeGUreunda( x: an EL, oS? 2m Out G1): 2s <>; 
Procedure Generic Apply (olin SET, SZ: out ST); 


generic 
Wien Pune r VON (ype. Le Setur iy 
Poems ty 21; 

PneulOn GemericyReauce(sS: Sb1)rreturn 1; 


generic 
Wiley runner Lon © (x ey el) return L: 
FMNGeLOn Generac jReGucel (5.9552) returns], 


generic 
with procedure Generate(X: in T); 
procedure Generic Scan(S: SET); 


Exit From _Foreach, Return From Foreach: exception; 
EMpty Reaguetion Undefined ; exception; =—- Raised by reducel. 


=] oYStem functions. 
PEOCCOUTeC ASGign(%: OCUC Pon! 7Y°4in SET); <= x %= y 
Procedure Recycle(S> in SET); 
-- Recycles any heap storage used by s. 
-- Call recycle(s) just before leaving any block where 
== a Variable s: Set is declared. 


-—. Text 1/70 procedures 
-- Package lookahead stream pkg and procedure input are 


-- used instead of get 

-- because text _10 does not support examining a lookahead character 
=- from an input files. tinhoue Moving epast. fee 

-- One character lookahead is needed to parse Spec set syntax. 

-- Format is { element, element, .. , element } 


generic 

with procedure Inmput(item- scout 1) etc; 

-- Read a set element from the lookahead stream, stream_machine pkg. 
procedure Generic Input (Item: out SET); 

-- Read a set element from the lookahead stream, stream_machine_ pkg. 


generic 

with procedure Input(ltem, Gut 7) 1s), 

-- Read a set element from the lookahead stream, stream machine pkg. 
procedure Generic File Input(File: in File Type; Item: out SET); 
-- Read a set from the file, using lookahead from stream_machine pkg. 


-- The generic put procedures are designed to work with the standard 
-- put procedures provided by the predefined Ada data types. 


generic 
with procedure Put(Item: in T) 18 <>; 
procedure Generic Put(Item: in SET); 


generic 
with procedure Put(File: in File Type; Item: in T) 18 <>; 
procedure Generic File Pub te ule ein bey oc tenho eae 


private 
type LINK is access SET; 
type BLEMENTS IVYPE as array (ie Block soa ze acim, 


type SET is 


record 
Size: NATURATP += 707. —— The size 7G: the cee. 
Elements: ELEMENTS TYPE, —— The actual eclements so. Lice oa 
Next: LINK := null; -- The next node in the list. 

end record; 

—-- Elements({|1 .. min(size, block size) Contarms data: 


end Generic Set Pkg; 
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so ee e@ @ © @ @ @ 8 © © @ ww 8 @ 
eo 8 © © #@ @ @ © @ #@ © @ #@ @ @ 


mia, 8 28 ¢ Jal0® ‘eer see fe) ee) om, ete le 
ee 8 © © #® @® @ @¢ @ @ #@ © @ # @ 


-- Warning: due to a buc in vedix Ada version 6.0, 

-- it has been necessary to patch the definitions of 

-- remove, member, difference, intersection, subset. 

-- The compiler bug causes incorrect references to the 

-~- formal parameters of a 

== subprogram from within a locally declared subprogram (e.g. loop body) 
-- that is passed aS a generic subprogram parameter in 

= 2, Generic _lnstantiation. 

-- Patches introduce local copies of procedure parameters 

oop ouch as. local x) 

-- to work around a case where variable references get confused. 
-- If the compiler bug is fixed someday, these local copies can be 
-- removed. 


with unchecked deallocation,; 
with lookahead pkg; use lookahead_pkg; 
with delimiter pkg; use delimiter pkg; 


-- generic 
=-y eye -0 4s private; 
mo OGh si2e 2 i Nauinad =) 128, 


SV Pet LOnVeG(x Vs EE) ireturn boolean 1s. "="; 
package body generic set pkg is 


Beeveler lise ink == null; == The recycle 11st for -recycling storage: 
nodes in recycle list: natural := 0; -- The length of the recycle list. 
nodes in use: Matural ;-= 0; \-- The number of set heap nodes in use; 


Same NVoriane nodes ri recyele jase 
— lenge n (recyclewl ist) <= nodes it use: 


== bOcal Subprogram declarations. 


FUMCETON copy Tiss dink) 
recur iaik ; 


fUNG eI Ole reate (S27) natural; 
e: elements type; 
NeXt. lank) 
Be tui lume, 


to 
KO 
oy 


function token return character; 
== End local subprogzam cdeclaraertoms- 
-- Constant declarattens- 
blank: constant delimirersdarray °— inieialt2e Gc Mitite] Ged wee 
=— End constant sceeldnat Vous. 


ee 


-- note: called by details internal usage of functions and procedures. 
== by default all instantiating programs are potential users as well. 


-- Procedure name: empty 
-- Description: return an empty set 
== Called by :wappiy 


procedure empty (S$: out set) vis 


sl: set; 
begin 
s:= sl; 


end empty; 


-- Procedure name: add 
-- Description: add an element to a set 


crc ce cr cr ce cr wr cr cc cr cr cr wr cr rw cr cr cr cr ce cr cr cr cr cr cr cr cr ce ce ce we i i 


PEOCCQULe ada (x2 1 ts> SS! enol see aes 


begin 
if mot (member(x, Ss)? then 
$.8ize := s.size + 1; 
tivs.Size <- )blee! tsazeourren 
s.elements(s.size) := x; 
elsif s.next = null then 
S.next := create(l, (others => x), null); 
else 
add(x, s.next.all); 
Sno it. 
end Tf; 
end add; 
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-- Procedure name: remove 
-- Description: remove an element froma set 
e— Called by: 


ec ce cm mw ww we ee ee ee i Ce 


procedure remove (x: in t; S$: in out set) is 


SS: sS6u, 

Weed! x. G f= %) ==" Pale Lo Work tareund compiler bug,” yerdix 6.0. 
begin 

=e ePegqin expanSion Gf FOREACH loop macro. 

declare 


procedure loop body(y: t) is 
begin if not (eq(local ™, y)) then add(y, ss); end if; 
end loop body; 
Preecedurerexccure Joop is new generic scan( loop body); 
begin 
execute loop(s); 
end; 
-- LIMITATIONS: Square brackets are used as macro quoting characters, 
=="so You MUSE Write Tix!) an the body of a FOREACH 
-- to get [x] in the generated Ada code. 
-- Ada programs using FOREACH loops must avoid the lower case spellings 


-- the identifier names "DEFINE", "“UNDEPINE”, and "DNL? 
-- OY muSt quote Chem like Chis eydeline|- 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a Separate file: 
-- Exit and return statements inside the body of a FOREACH loop 
-- work correctly only if the FOREACH loops are not nestedce 
-- End expansion of FOREACH loop macro. 
recycle(s); 
S2="co, 

end remove; 


-- Function name: member 
-- Description: test if an element is a member in a set 
-- Called by: subset, add, union, difference, intersection 


function member (x: t; sS: set) return boolean is 


local x: t := x; -- patch to work around compiler bug, verdixgGae 
begin 

-- Begin expansion of FOREACH loop macro. 

declare 


procedure loop pody(y: tyes 

begin if eq(local x, y) then raise return _from_foreach 7; SCmaueee, 
end loop body; 

procedure execute loop is new gener1e scan leo ulead): 


begin 

execute loop(s); 
exception 

WhENS TSU The trem foneaChe = shout eiase cul, 
end; 


-- LIMITATIONS: Square brackets are used as macro quoting Characeuere, 
== sO you MuSt write |[|x]]0 in the body ci a POREAGH 
-- to get [x] in the generated Ada code. 
—-- Ada programs using FOREACH loops must avoid the lower case 
=="spellings sof 
—- the identifier names “DEFINE”, "UNDEF INE 7. ands DNL 
-- or must quote them like this: [define]. 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
-- Exit and return statements inside the body of a FOREACH loop 
-- work correctly only if the FOREACH loops are not nested. 
=> End expansion of) FOREACH loop =macre. 
return(false); 

end member; 


tO 
to 
oa) 


-- Procedure name: union 
-- Description: return the union of two input sets 
-- Called by: 


PrCCedire Wien (Sil, c2: In {Sec,, S3: Out Set). 1s 


Sst) Set; —— Inititalized Co empty - 

begin 
-- Begin expansion of FOREACH loop macro. 
declare 


procedure loop body(y: t) is 

begin add(y, ss); 

end loop body; 

procedure execute loop is new generic scan(loop body); 


begin 
execute loop(sl); 
end; 
-- LIMITATIONS: Square brackets are used as macro quoting 
== Characters, 


S50) YOu cmust) wrare (ix) )/ am tne body of a FOREACH 
-- to get [x] in the generated Ada code. 
-- Ada programs uSing FOREACH loops must avoid the lower case 
== “spellings o£ 
== ENS POent fier names “DEFINE”, “UNDEFINE”,. and "DNL", 
-- Or Must quote them like this: {define}. 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package ina separate file. 
-- Exit and return statements inside the body of a FOREACH loop 
=a IWOCk correctly only if the FOREACH loops are not nested. 
—-- End expansion of FOREACH loop macro. 
-—- Begin expansion of FOREACH loop macro. 
declare 
Brocedire. 1060p body (yt) 2s 
begin add(y, ss); 
end loop body; 
Procedure execute 1600p 2s mew generic “scan (loop body) ; 
begin 
execute leop(s2); 
end; 
-—- LIMITATIONS: Square brackets are used aS macro quoting characters, 
-- so you must write [[{x]}]}] in the body of a FOREACH 
-- to get [x] in the generated Ada code. 
-- Ada programs uSing FOREACH loops must avoid the lower case 
=e Spel Linge OF 
=> tne T0encitier names. “DEFINE”, “UNDEFPINE"; and "DNL", 
-- or must quote them like this: [define]. 


ee 


-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
--— Exit and return statements inside the body of a FOREACH loop 
-- work correctly only if the FOREACH loops are not nested. 
-=- End expansion of FOREACH 1oepumaero- 
$3 := SS; 

end union? 


-- Procedure name: difference 
-- Description: return a set difference of two input sets 
-= Calledrby. 


emcee eg mee me ce ee ee ce ee aa a 


procedure difference (sl, s2: in set; $3: out set) is 
SS : Set; 


local _s2: set := 82; -- patch to work around compiler bug, verdix 6.0. 
begin 

-- Begin expansion of FOREACH loop macro. 

declare 


procedume loop body (yt )iis 
begin if not member(y, local_s2) then add(y, ss); end if; 
end loop body; 
procedure execute loop is new generic scan(loop body) ; 
begin 
execute loop(sl); 
end; 
-- LIMITATIONS: Square brackets are used aS macro quoting charactegs, 
=I SO.yYOU Must write [ [x] ) [in the, body "ots ashoRenen 
-- to get [x] in the generated Ada code. 
-- Ada programs uSing FOREACH loops must avoid the lower case 
== spellings oF 
-- the identifier names "DEFINE", "“UNDEFINE", and "DNL", 
—— OF must quote them like Chas: ceric] 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
-- Exit and return Statements inside the body cf a FOREACH Joep 
-~ work correctly only if the FOREACH loops are nor nestcar 
-- End expansion of FOREACH loop macro. 
S3. = ss; 
end difference; 


-- Function name: intersection 
-- Description: return a set intersection of two input sets 
-= Called by, 


mm mmm a ee ew ee ew ee ew we ae 
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procedure intersection (sl, s2: in set; S3: out set) is 


SOL Sek 

localys2 -Aset, J=es7, = arch To work ground compiler bug, verdix 6.0. 
begin 

-- Begin expansion of FOREACH loop macro. 

declare 


procedure loop body(y: t) is 
begin if member(y, local _s2) then add(y, ss); end if; 
end loop body; 
DrQecedure execute loop 15 New generic Scan{ loop Pody) ; 
begin 
execute loop(sl); 
end; 
-- LIMITATIONS: Square brackets are used aS macro quoting characters, 
-- so you must write [[x]}] in the body of a FOREACH 
-- to get [x] in the generated Ada code. 
-- Ada programs using FOREACH loops must avoid the lower 
-- case spellings of 
-- the identifier names "DEFINE", "UNDEFINE", and "DNL", 
—-- or must quote them like this: [define]. 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
—-- Exit and return statements inside the body of a FOREACH loop 
== Work correctly only if the. FPOREACH loops are not. nested. 
-- End expansion of FOREACH loop macro. 
SS 3= ss; 
end “Incersection; 


[= SuNClLOm, Name: Size 
-- Description: return the number of elements ina set, zero if empty 
-= Called by: 


function size (Ss: set) return natural is 
begin 

FeLUrn S$ 5S1Ze; 
end size; 


=-— FuncCtlon mame: equal 
-- Description: tests if two sets are equal 
—-- Called by: 


mmc mmm a ee eee a 


function equai(sl, s2: set) return boolean is 


bl, bes Boolean, 


begin 
bl := subset(si, =sZ- 
bZ += subset (sZ, sil}; 


return bl and b2; 
end; 


-- Function name: subset 
-- Description: check if one set is a subset of another set 
~= Called by: 7equel 


em em cr cr a a i ews we ow 


function subset(sl, s2: set) return boolean is 


Ie We Gea ee, 

result: boolean := true; 

local s2: set := s2; -- patch to work around compiler bug, verdinaas 
begin 

if sil.size > SZ2.S1ze@ Unen Ttesult): —scalce, 

else -- Begin expansion of FOREACH loop macro. 

declare 


procedure loop body(y: t) is 
Heqiner i net (memden (yy, OCa isa 
then result := false; raise exit _from_foreach ; end if; 
end loop body; 
procedure execute loop is new generic scan(loop_ body); 
begin 
execute loop(sl); 
exception 
when exit from foreach => null; 
end; 
-- LIMITATIONS: Square brackets are used as macro quoting characters, 
-= §0 you must write [[x])"in =the body of a FPOREsGH 
-- to get [x] in the generated Ada code. 
-- Ada programs using FOREACH loops must avoid the lower case 
=— Spellings er 
-- the identifier names "DEFINE", “UNDEFINE"”, and “DNL", 
-- Or must quote them like this: [define]. 
-- The implementation requires each package to be generated by 
-- a Separate call to m4: put each package in a separate file. 
-- Exit and return statements inside the body of a FOREACH loop 
-- work correctly only if the FOREACH loops are not nested. 
-- End expansion of FOREACH loop macro. 
end aa, 
return result; 
end subset; 
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--—- Procedure name: interval 
f= Description. Geu tie elements ola sel that are within» the input 


interval 


em cc ce ee ee ce ee re ce cm cr ee re re ec cr ce ew we we we we we we we we we we we we ww ew wee es es eee ee es 


=—sgenenic 
== with functwton “<4 (x, 7.72). teUUrue boc Camels 
== With function SuUCCeESSOr(x-. ££) netuen 


== ALL(x yY: G 22° X Sy =2 successes) 
procedure generic interval (x), e227 ee, Se Ueoc eee 
SS: set; =- Initialized to empty. 
Vek. = 1, 
begin 
while not. (x2 <~y)-= Jeep 9=— fuvaciane xe 
add(y, ss); 
y := successor(y); 
end loop; 
S := SS; 


Syolel efeigienqie Migniese esi - 


-- Procedure name: apply 
-- Description: apply function "f£" on element of a set 


==>. Caled bv: 
-- generic 
-- type et iS private; -- Element type for result. 
-- type st is private; -- Blement set type for sesule 


“= Wren LUNGEIoOn f(x: by Meeumniwer tees, 
== With procedure. CMbeY (S.Moore St mcr cs, 
—-—= With procedure addatx: ain €t;. St.in GuUEe St) eis 3 
procedure generic apply (si; in set; S2:> Guleste) ais 
Ss s ec, 
begin 
empty (Ss); 
-- Begin expansion of FOREACH loop macro. 
declare 
procedure Toop body (y: tyes 
begqunwadGd (7 (vy). sso 
end loop_body; 
procedure execute loop as new generic scam loop ooaas, 
begin 
GxCeCut eG wicao( si)" 
end; 
-- LIMITATIONS: Square brackets are used aS macro quoting characters, 
=> SO YOU must write {[{x]]}] in ehe body of aehOREAGH 
-- to get {x] in the generated Ada code. 
-- Ada programs uSing FOREACH loops muSt avoid the lower case 
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= Spe bliings.o8 
-- the identifier names "DEFINE", "“UNDEFINE", and "DNL", 
-- or must quote them like this: [define]. 
-~- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
~~ Exit and return statements inside the body of a FOREACH loop 
-- work correctly only if the FOREACH loops are not nested. 
== Ford €xpansion Of FOREACH loop macro. 
S2 := SS; 

end igeme ric apply; 


-- Function name: reduce 
~- Description: reduce set to an element by applying function "f" 
—— called by: 


em ee ee a a ee ee ee ee ee ee Ce 


= enerle 
ee wile. Pumer ron £(xX, “~2t) Sreburn ol; 
=<) 10entity: t; 
Pigc stone generic Creauce(S (set) erecurn t.2s 


X27 == 1dentity; 
begin 
-- Begin expansion of FOREACH loop macro. 
declare 
procedure loop body(y: t) is 
DeEQin x= fy 7 x) s 


end loop body; 
Procedure cxecute Joop 1s new -ceneric scan (loop body); 
begin 
execute. OOpis); 
end; 
-- LIMITATIONS: Square brackets are used as macro quoting characters, 
==—9So YOU must write (ix) inthe body of a FOREACH 
-- to get [x] in the generated Ada code. 
-- Ada programs using FOREACH loops must avoid the 
-- lower case spellings of 
== tie TOenriti1er names “DEFINE”; "“UNDEFINE”,.:and) "DNL". 
= Cr Muse oucte them like this: (define). 
-- The implementation requires each package to be generated by 
—-- a separate call to m4: put each package in a separate file. 
—- Exit and return statements inside the body of a FOREACH loop 
-~ work correctly only if the FOREACH loops are not nested. 
—-~ End expansion of FOREACH loop macro. 
return xX; 
end Generic seduce, 


-- Function name: reducel 
-- Description: same as reduce only without the identity element 
== Cal ledrir. 


em ccc mcr crm ce cr cr me ce ce mcr cr mw wm ce ce ee i ee 


-- generic 
== with function ea tx, se eee nee, 
function generic reducel(s: set) return t is 


ee lee, 
a2 Natural := 1; 
begin 


if s.size = 0 then raise empty_reduction_ undefined; end if; 
-- Begin expansion of FOREACH loop macro. 


declare 
procedure loop body(y: t) is 
begin if i= 1 then x := y; else x := fly, x); end if; 


2 SS ae 

end loop body; 

procedure execute loop is new generic scan(loop body); 
begin 

execute loop(s); 
end; 
-- LIMITATIONS: Square brackets are used aS macro quoting characters, 
=— SO yOu must write [[x]]} am the body of a FOREACH 
-—- to get [x] in the generated Ada code. 
-- Ada programs uSing FOREACH loops must avoid the lower 
== Case spellings oe 
-- the identifier names "DEFINE", "UNDEFINE", and "DNL", 
== Or MuSt quote them like this: (derime|e 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
-~- Exit and return statements inside the body of a FOREACH loop 
-- work correctly only if the FOREACH loops are not nested. 
-- End expansion of FOREACH loop macro. 
Fel x, 

end (Gener temuealcen, 


~- Procedure name: scan 
-~= DeSCription: frame Ofelcop st ructure 
== Called: 


commer cr cr mcr crm cr cr cr ww cr rw ce cr er cr er cr crs we cr a a 


== Generic 
-~ with procedure generate(x: in t); 
procedure generic scan(s: set) is 


LoCo. f= i>, 
begin 
while t.next /= null loop 
Coe ie ie PlOCh S 626 ot OOo 
generate(t.elements(i)); 


end loop; 
f= t.next.all; 
end loop; 


fore eta Ly. ct oSsize JL OOD 
generate(t.elements (i)); 
end. 1LOOp; 

end generic scan; 


——--FUNCLIOnN Name: .assign 
=== DESCripeion. Safe version of “:=". 


meme em ee ew eee ewe ee ee ee ae 


procedure asSign(x: out set; y: in set) is 


begin 
MoSize 2=" VS 126; 
x.elements := y.elements; 
x.next := copy _list(y.next); 


end assign; 


--~ Procedure name: recycle 


-- Description: destroys a set and reuses the associated storage 
=- Called by: remove 


a we rw er re rw re rr aa ee a 


procedure recycle (S: in set) is 
Pein, StS enexl, 
head, temp: link; 
procedure free is new unchecked deallocation (set, link); 
begin 
while 1 /= null loop 
head := 1; 
i next, 
HOES Muse -— Nodes Imasuse —<1,; 
if nodes_in_ recycle list < nodes in use then 
LGM g = HeCvele Hist; 
recycle list := head; 
recycle list.next := temp; 
MeOCCSeimelccyvcte last 1 Medes in recyele: jist 4+-1, 
elise 
free (head) ; 


end if; 
end: lo0ep, 
end recycle; 





cr wr cr cw ww ww ww ww ww ww rc cr re te ie ee te te te ee ee we we we oe 


Ne 


== FUNCETOn Tame Coe ye. © | 
~- Description: creates a distinct copy of a list representiqn = ausem | 
-- Called by: assign | 


function copy 1st () link) rer urn eas 

begin 
if b= null thengret umn, 
else return Create(l.size, Uveclements, secpy sist Gower 
end if; 

end copy list; 


-- Function name: create 
-- Description: create a new block of set elements 
—— Cal lect iy.. saad 


function create (sz: natural; e: elements type; next: Link) 1eemmae 
is 
Abba gt <r 
begin 
nodes _in_use := nodes_in_use + l; 
if poeCy elem sens Wyle eer 
return new set‘'(sz, e, next); 
else 
ee ora ey ete Se, 
recycle list := recycle Jist next; 
NOGEeS iN Treeycleslise .— modes insrce, clea eee, 
lLeSize := sz; 
l.elements := e; 
I -NeOXl.. i=anexte, 
revcircn -1; 
ene! ae: 
end create; 
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— ee ee 


-- Function name: token 
-- Description: get a non blank character from input 
mer Coed. by. Genert Cc InpuL 


function token return character 1s 
-- Blank is a constant array, see top of package body. 
begin 
-- Advance the lookahead stream to a non-blank character. 
while blank(peek) loop skip char; end loop; 
-- Return the character without removing it from the stream. 
return peek; 
end token; 


Ce ene ee ne _e e  — —ee 


em es es ws ws ee ee ee ee eee ee ee ee 


-- Procedure name: generic input 
-- Description: input sets. Format is { element , element , .., element } 
-- Called by: generic file input 


mmc mcr crm rm cr re cre cr wr cr ee es we ws we i 
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== Generic 
=-= with procedure input(item: Out tye ee, 


procedure generic input(item: out set) is 


x 6U; 
S$: set; -- Working copy of the result, initialized te expe se 
begin 
empty (Ss) ; 
if token 7= {1° emenesaise Caterer, Soncein, 
skipchar; ==> Pass Over Ene opening Vere rack = 
white token =. +} Sloop 
input (x); -- Read and pass over the next element of the set. 
add(x, s); -- Add the element to the set. 
if token = ',' then 


Skip eller, 
elsif token /= '}' then 
BotSoCGdtame Grom, 
-- if there is no comma we should be at the end of the set. 
end if; 
end loop; -- Now the closing right brace is the lookahead character. 
Skiplchan; 
item := s; 
exception 
When OGNCES@—> Gelccmead tage uum, 
end GenericeinputL, 


—= Procedure Name! —GenerlG file onpuer 
-- Description: sets input from files 
=— Cal ledsan 


em cc cc ee ae ew we ew i 


==> 1 Generre 
= With procedure input (item. out) vc) 1s .-<-; 


procedure generic file input(file: in file type; item: out set) as 
procedure get_set is new generic input; 


begin 
set_input (file); -- Connect the lookahead stream to the file: 
Gee ssce 4 cem), 
set anput (standard input); "-— Restore the stendevcs impure tle 


CnG Generic oi il ein pue, 
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== Procedure Name: generic put 
-- Description: output set. Format is { element , element , .. ,element } 
=- Called by: 


-- generic 
-- with procedure put(item: in t) 1s <>; 
procedure generic put(item: in set) is 
22 Natural, <= Lk; 
begin 
Ppuc(asci2 1 Drace), 
-- Begin expansion of FOREACH loop macro. 


declare 
procedure loop body(y: t) 1s 
Degin= 11 1 >i then put (y, “); end at; 


DUEL ep. = eta Ie 

end loop body; 

procedure execute loop is new generic _scan(loop body); 
begin 

CxeecutLe (leop(iLem),; 
end; 
-- LIMITATIONS: Square brackets are used aS macro quoting characters, 
P= SO yOu MuSt write [ix]]| im the. body ota” FOREACH 
-- to get [x] in the generated Ada code. 
-- Ada programs using FOREACH loops must avoid the lower 
= Case opel Ings: Of 
—-- the identifier names "DEFINE", "UNDEFINE", and “DNL", 
-- or must quote them like this: [define]. 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
-- Exit and return statements inside the body of a FOREACH loop 
== WOrk Correctly only 2f the FOREACH loops are not nested. 
-—— End @€xpansion Of FOREACH Joop macro. 
PUttaSscil sr brace); 

eneaegener iC pur; 


-- Procedure name: Generic file put 
mo DesScCrape i on wOutput Set."to tile 
e- Called by: 


cme em ar ar cr cr cr cr we ww we we = 


=-2Ceneric 

=e chapeocedirespuetiile Sin Lilerrype; 1tcm in bt) as -<>; 

PeoOcecume (Genet pert wept te in ti test yoe, 2tem: an Seu) 2s 
ie natural, “y= <b; 
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begin 
DUE Eile, asi ie raece) es 
-- Begin expansion of FOREACH loop macro. 


declare 
procedure loop body(y: t) is 
begin if i> 2 then puc (file, |, end 1, 


DUE (CETL a a oe, 

end loop_body; 

procedure execute loop is new generic _scan(loop_body); 
begin 

execute loop(item); 
end; 
—--— LIMITATIONS: Square brackets are used aS macro quoting characters, 
-- so you must write [{x]] in the body of a FOREACH 
-- to get [x] in the generated Ada code. 
-- Ada programs using FOREACH loops must avoid the lower 
== Case Spellings -of 
-- the identifier names "DEFINE", "UNDEFINE", and “DNL", 
—-- or must quote them like this: [define]. 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
-- Exit and return statements inside the body of a FOREACH loop 
-- work correctly only if the FOREACH loops are not nested. 
-~ End expansion of FOREACH loop macro. 
PUuE (tile, ascii. jomalee), 

eng Generic etalon, 


we wt ew ws ww ws ws ws ws iw we = 


end generic _set_ pkg; 


APPENDIX M. GENERIC MAP PACKAGE 


—me*eeeee @ @ @ © © © © HO 
ee ee @ @ © © © © © © © @ @ 
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-- SSource: /n/gemini/work/bayram/AYACC/parser/psdl_ada.lib/RCS/map_b.a,v $ 
——- $Date: 1991/09/24 10:42:27 § 
== oKevision: 1.5 9 


-~ this implementation is limited: the ada ":=" and "=" operations 
—- are not safe or correct for maps. 


== Wse the “assign” and “generic equal” procedures instead, 


== you should use the “recycle” procedure on block exit or subprogram return 


-- to reclaim storage for any local variables of type map declared in the block 
~- maps are unbounded, but do not require heap storage unless 


-—- the size of the map exceeds the block size. 


with generic set pkg; 


With  Eext 10; Use text .16; 


generic 
type key is private; -- type of the domain element 
type result is private; -- type of the range element 
PiOckesize: in Natural <«— 12, => the memory allocation unit. 


Wieheerunctionveq key (kl; k2: key) return boolean 1s4"="; 

Viti tunce1On eq res (ri; r27 result) return boolean 2s "="; 
package generic map pkg is 

Rype pair is private; 

EYpe Map 1S private; 


package key set pkg is 

Hew genericuset spkq(t-=> key, ¢q => eq key, block size ’=> block size), 
Subtype key sect is key set pko.set; 
package res set pkg is 

Mew Generic Set spkg(= =~ Fresulc, €q => eq res, block size => block size); 
SURE ype tes {set 15 Tes Set pkg set; 


PEGCeCUTe (Create (1: in result; ms“out map) ; 
PrOccaures>1nd x in Keys Vo ‘in Teswle =m: in out map) - 
procedure remove(x: in key; m: in out map); 

procedure remove(s: in key set; m: in out map); 
function fetch (m: map; x: key) return result; 

function member(x: key; m: map) return boolean; 
EUNCELON-cavialiml,-mz: map) return boolean; 


function submap(ml, m2: map) return boolean; 
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function map_domain(m: map) return key set; 
funcevon map _range(m: map) return res set; 


function map default (m: an map) return eresulc, 


generic 
with procedure generate(k: in key; r: in resuit); 


procedure generic scan(m: in map); 
exit from foreach, xveturn from foreach: ~excepeion, 


-- system functions. 
procedure assign(x: out map; y: in map), ~—— esa sy 
procedure recycle(m: in map); 

-- recycles any heap storage used by m. 

-- call recycle(m) just before leaving any block where 


-- a variable m: map is declared. 


== text 1/0 procedures 

-- this package supports generic input of map data in the following format: 
-- {([keyl, resultl], [key2, result2|4. ... 4 deraule) 

-- the following generic procedures will read and write the map data. 

-- package lookahead stream pkg and procedure input are used instead womeges 
-- because text_io does not support examining a lookahead character 

-- from an input file without moving pasStwit. 


-- one character lookahead is needed to parse spec map syntax. 


generic 
With procedure key input (tk (cut ukey)aice.-, 
with procedure res input{:. “out w result) sis <2, 


procedure genericlinput(m: our map) ; 


generic 
with procedure Key Pue(k: Sinekey | wuss, 
with procedure res put(r: in result) is <>; 


Precedure generic puEe (teem: sin map | 


generic 
with procedure key put(file: in file type; k: in key) is <>; 
with procedure res put (file: in f2leve ype se -.neee Sule ese 
procedure generic file put (file: in file type; item: in map); 
private 
EYpe palras 
record 
key val: key; 
res val: result; 


end record; 
function pair _eq(x, y: pair) return boolean; 


package pair set _pkg is 


new generic set _pkg(t => pair, eq => pair_eq, block size => block size); 
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SUBbLYpe Palit eSeyv 2S pair Set pka. set, 


eYyPe Map 2s 
record 
def val: result;  —— default value supplied by user 
Patrs spare sex, 
end record; 


end generic_map pkg; 


= 8 8 6 (6 ~@ (6 © Ss oe © «6 ©« «8 
eee 8 © © © © @ @ © © © © © 


= 8S © je “ss ie te 68) et © lS Us 8 
eee © © © © © © @ © ew ee 


-- SSource: /n/gemini/work/bayram/AYACC/parser/psdl_ ada.lib/RCS/map b.a,v $ 
~~ $Date: 1991/09/24 10:42:27 § 

S- ReVLSTOnts61- 29 (o 

== »b0Og: Map. b.a,v > 

= Revision 1.5 2994/09/26 10:42:27 bayram 


-- *** empty log message *** 


-- warning: due to a bug in vedix ada version 6.0, 

-- it has been necessary to patch the definitions of 

-- fetch, member. 

-- the compiler bug causes incorrect references to the formal parameters of a 
== subprogram from within’ a locally declared subprogram (e.g. loop body) 

-- that is passed as a generic subprogram parameter in a generic instantiation. 
= patches introduce local copies oi procedure parameters (such as local x) 

-- to work around a case where variable references get confused. 


-- if the compiler bug is fixed someday, these local copies can be removed. 


with lookahead pkg; use lookahead pkg; 
Withde liniter -pkKo; use delimiter pkg, 
With text. 20; “use. Text lic; 


-- generic 
== type key is private; -- type of the domain element 
=o type result is private; -- type of the range element 


-- with function eq key(kl, k2: key) return boolean; 
-- with function eq res(rl, r2: result) return boolean; 


package body generic_map pkg is 


~- local subprogram declarations 


FUNCE TONE LOKen return character: 


-- constant declarations 
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blank: constant delimiter array <— UnieoralizZemcelinitepecdmera,, 


i procedure name: create 


-- description: creates a map instance and sets the user supplied default 


em creme mee me me me ee we wwe me me ww rw rr re es es wee ees es wes es es oe 


procedure create(r: in result; m: out map) is 
mm : map; 
begin 
mm.def val := yr; 
pair set_pkg.empty (mm.pairs) ; 
m := mm; 


end create; 


-- procedure name: bind 


-- description: adds an element to an existing map 


em mcm cme mc ec we we ee ee ee ee ee ee 


procedure bind(x: an key; yi an result; mm: 2neoutemap)e 2s 
Dif paar: 
begin 
remove (x, Mm); 
if y /> medet val then 
p-.key val 


x; 
p.res val := y; 
pair set pkg.add(p, m-.pairs); 
end if? 
end bind; 


ay procedure name: remove 


-- description: removes an element from a map 


ec we we ce ec es we we we ew ce ew ew we ew ee ec we we we we es we ee ee ew es we wee es we we we we = 


procedure remove(x: in key; m: in out map) is 
ps parr: 
begin 


if member(x, m) then 


p.key val xX; 
fetch im, =x)-> 


pair set pkg.remove(p, m.pairs) ; 


P.2tes vau 
end if; 


end remove; 


-- procedure name: remove 


-- description: removes a set of elements from a map 
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procedure remove(s: in key sSeG) Mm. if out map) is 
Din pala, 
begin 
-- for k: key in generic _scan(s) loop 
-- remove (k, m); 
-- end loop; 
-- begin expansion of foreach loop macro. 
declare 
procedure loop body(k: key) is 
begin remove (k, m); 
end loop_body; 
procedure execute loop is new key set _pkg.generic scan(loop body) ; 
begin 
execute loop (s); 
end; 
-- limitations: square brackets are used as macro quoting characters, 
-- so you must write [[x]] in the m4 source file 
-- to get [x] in the generated ada code. 
-- ada programs using foreach loops must avoid the lower case spellings of 
-- the identifier names "define", "undefine", and "dnl", 
-- or must guote them like this: [define}. 
-- the implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
-- exit and return statements inside the body of a foreach loop 
-- may not work correctly if foreach loops are nested. 
-- an expression returned from within a loop body must not 
—-- mention any index variables of the loop. 
-- end expansion of foreach loop macro. 


end remove; 


-- function name: fetch 


-- description: returns the range value of a map for a given domain value 


mm meme we ee mm me re me me ae ae 


PuncCeLton Lecch(miemap;. x: key) return. result is 


Ve resul ta: — Mm det iva; 
Pocalux: Key <=; == patch to work around compiler bug, verdix 6.0: 
begin 


-- begin expansion of foreach loop macro. 
declare 
procedure loop _body(p: pair) is 
begin if eq key({p.key val, local x) 
Ehenay <= p.res Val; taise-exat from foreach ;. end, if; 
end loop body; 
procedure execute loop is new pair _set_pkg.generic_ scan(loop body) ; 
begin 
exXecuLe TJcopdm.pairs) ; 
Eexcepelon 
when exit from_foreach => null; 


end; 
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-- limitations: square brackets are used aS macro quoting characters, 
—- so you must write [[x]] in the m4 source file 
-- to get [x] in the generated ada code. 
-- ada programs using foreach loops must avoid the lower case spellings of 
~~ the identifier names "define", "undefine", and "dnl", 
-- or must quote them like this: [define]. 
-- the implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
-- exit and return statements inside the body of a foreach loop 
-- may not work correctly if foreach loops are nested. 
-- an expression returned from within a loop body must not 
-- mention any index variables of the loop. 
-- end expansion of foreach loop macro. 
Return (yy: 
end fetch; 


-- function name: member 


-- description: indicates whether an element is a member of a map 


eee 


function member(x: key; m: map) return boolean is 


Pp. opale, 

found: boolean := false; 

local _x: key := x; -- patch to work around compiler bug, verdix 6.0. 
begin 


-- begin expansion of foreach loop macro. 
declare 
procedure loop Bodyi(p-) pairjeis 
begin if eq key(p.key val, local _ x) then raise return from _ foreach 7 senae, 
end loop body; 
procedure execute loop is new pair set pkg.generic scan( loopeboaws: 
begin 
execute loop(m.pairs) ; 
exception 
when return from foreach => return true; 
end; 
-- limitations: square brackets are used as macro quoting characters, 
-- so you must write [[x]] in the m4 source file 
-- to get [x] in the generated ada code. 
-- ada programs using foreach loops must avoid the lower case spellings of 
-~—- the identifier names "define", "undefine”", ana “dnl”, 
-- or must quote them like this: [define]. 
-- the implementation requires each package to be generated by 
—- a separate call to m4: put each package in a separate file. 
-~- exit and return statements inside the body of a foreach loop 
-- may not work correctly if foreach loops are nested. 
“- an expression returned from within a loop body must not 
-- mention any index variables of the loop. 
-- end expansion of foreach loop macro. 


return (false): 
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end member; 


-- function name: equal 
-- description: indicates whether or not two maps are equal by determining 


== whether each map is a submap of the other. 


em cm cee we ee ee ee ee ee ee ee we ie oe 


function equal(ml, m2: map) return boolean is 

bl, b2: boolean; 
begin 

return(submap(ml, m2) and then submap(m2, ml))j; 
end equal; 


== “LUncLion name: submap 

-- description: indicates whether one map is a subset of another map by 
== determining whether the set of domain and range values of 
=> one map 1s a subset of the domain and range values of the 


-- other. 


function submap(ml, m2: map) return boolean is 
begin 
Sec urn (man default (ml)? — mapsdefaule (mZ)) ‘and then 
(pair set pkg.subset (ml.pairs, m2.pairs))); 


end submap; 


-- function name: map domain 


=— Ge@scription: returns the set of domain values for a map 


ee ct we ww we we ww we ws wes we ww we we we ws ws ws ww ww ws ww ee aie i a = 


function map domain(m: map) return key set is 
hesete Key set, 
begin 
key set _pkg.empty (k_set); 
-- begin expansion of foreach loop macro. 
declare 
Procedure leop (body (op: pair) is 
begin key set pkg.add(p.key val, k_set); 
end loop body; 
procedure execute _ loop is new pair set _pkg.generic scan(loop body); 
begin 
execute loop(m.pairs) ; 
end; 
-- limitations: square brackets are used as macro quoting characters, 
-- so you must write [[x]]} in the m4 source fale 
-- to get [x] in the generated ada code. 
-- ada programs uSing foreach loops must avoid the lower case spellings 
== the wdentitier names “define”, "undefine", and "dnl", 
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—-- or must quote them like this: [actine). 

-- the implementation requires each package to be generated by 
-~- a separate call to m4: put each package in a separate file. 
-- exit and return statements inside the body of a foreach loop 
-- may not work correctly if foreach loops are nested. 

-- an expression returned from within a loop body must not 

-- mention any index variables of the loop. 

-- end expansion of foreach loop macro. 

return k sec; 


end map domain; 


-— function name: map range 


-- description: returns the set of range values for a map 


Se ee td de dd ee 


function map range(m:; map) return res_set is 
BUSGt @res SSeer, 
begin 
FrEesesecenpko Empey (reser, 
-- begin expansion of foreach loop macro. 
declare 
precedure loop body (p:) pair) is 
begin res set pkg.add(p.r1res val), uaser); 
end loop _ body; 
procedure execute loop is new pair set pkg. generic Scan (loop bodys 
begin 
execute loop(m.pairs); 
end; 
-- limitations: square brackets are used as macro quoting characters, 
== so you must write [[x]] in the m4 scourceviric 
-- to get [x] in the generated ada code. 
-- ada programs using foreach loops must avoid the lower case spellings of 
-~- the identifier names "define", "undefine", and "dnl", 
-- or must guote them like this: [define]. 
-- the implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
-- exit and return statements inside the body of a foreach loop 
-—- may not work correctly if foreach loops are nested. 
-- an expression returned from within a loop body must not 
-- mention any index variables of the loop. 
-- end expansion of foreach loop macro. 
res set pkgq.edd(m-deltvalyusr sev); 
pel] bin cigl ne 2 Nel 


end map_ range; 


SSS SSS S 2S 442-- 5 — sae ae Map d@f aul eae 
-- function name: map default 


-- description: returns the default value of a map 
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Lunce Lon Map detault im. in map): return resuitc is 
begin 
Tecusn m.del oval; 


end map default; 


=—- procedure name: scan 
-- description: generic procedure which provides the capability to move 
= through a map, one element at a time, performing a generic 


= procedure on each element. 


cee cee ew ew we we we we we we we ee we we we ee we we ce ce eae i 


-- generic 
-- with procedure generate (k: in key; r: in result); 
precedure generic scan(m: in map) is 
begin 
-- begin expansion of foreach loop macro. 
declare 
procedure loop _body(p: pair) is 
begin generate(p.key val, p.res_ val); 
end loop body; 
procedure execute loop is new pair set_pkg.generic scan(loop body) ; 
begin 
execute loop(m.pairs); 
end; 
-- limitations: square brackets are used aS macro quoting characters, 
==_ SO Vou must write /[ (x) ) “in the -m4) source fide 
-- to get [x] in the generated ada code. 
-- ada programs using foreach loops must avoid the lower case spellings of 
-- the identifier names "define", "undefine”", and "dnl", 
== Or must. quote them lake this: (define] . 
-- the implementation requires each package to be generated by 
-- a separate call to m4: put each package ina separate file. 
-- exit and return statements inside the body of a foreach loop 
-- may not work correctly if foreach loops are nested. 
=- an Expression returned from within a loop body must not 
-- mention any index variables of the loop. 
= cna expansion, OQlLaitoreacn Loop macro. 
end generic scan; 


-- function name: assign 
= aeSCription: Sate version of "r=", 


Precedure assignix: out map; vy: in. map) is 
begin 

x.def val := y.def val; 

pair set_pkg.assign(x.pairs, y.pairs); 
end assign; 
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-- procedure name: recycle 
-- description: destroys a map and reuses the associated storage 
-- called by: remove 


em cmc cece ce ce ee ee ee ee ee we ee ee ee ee 


procedure recycle (m: in map) is 
begin 
pair set_pkg.recycle(m.pairs)j; 


end recycle; 


SS Gene@rlc_ JNpUt. --93 2294-32 ==52=27> o> 725 ae eee 
—- procedure name: generic input 
-- description: binds a sequence of elements from the keyboard 


ee 


—-- generic 
=—= With procedure key input (kK: Joueekey pice 
-- with procedure re Sei npu le. out result) is <>; 
precedure Genervevinpul(m: seve map rs 
xo. KEY; 
Vi Sesuit; 
ml: map; 
begin 
if token /= '{' then raise data error; end if; 
skip char; 
while token /= '}' loop 
if token /= '[' then raise data_error; end if; 
skip char; 
key. input; 
if token /= ',' then raise data_error; end if; 
skipmenar; 
res inpuety), 
if token /= ']' then raise data_error; end if; 
skip char; 
bind (x,.y7 mL) 
lf token = ", “then skipecnax, 
elsif token = ">" then 
skipicher, 


res inputiml deft val), 


if token = "}* chen skiplehar;, else raisesdacapetror, scucmr. 
exit; 
else raise data error; 
end if; 
ena Leap; 


m := ml; 
exception 
when others => raise data_error; 


end Generic. .npuL, 


eee oe ee ee Sone On pi = = SK Sean aS eS See 
=> Preoceaure name; Generics put 


== Gescripcion: Outputs map data toe the sereen 


ec ra ewe ee ee i ae ee 


== generic 
=- With procedure key puct(k- =in key) 12S <4; 
= Withprecedure res put(rs in result) as <>; 
PECCedure Generic pul(item: aon map) is 
ie natural :=- 1; 
begin 
Putri 7? 
-- begin expansion of foreach loop macro. 
declare 
procedure loop body(k: in key; r: in result) is 
begin af <> le then: pupt",@")> end at; 
Pub (i Khey.ruetk), purt "), res putitr); -pulti(™)] ™), 
cee eee a ee oe 
end loop body; 
procedure execute loop is new generic _scan(loop body); 
begin 
execute loop (item) ; 
end; 
-- limitations: square brackets are used as macro quoting characters, 
“= 50 yOu must write [|[x]] an the m4 source file 
-- to get [x] in the generated ada code. 
-- ada programs using foreach loops must avoid the lower case spellings of 
-- the identifier names "define", "undefine", and "dnl", 
= OL must. quote ‘them Like this: [define]. 
-- the implementation requires each package to be generated by 
-—- a separate call to m4: put each package in a separate file. 
== e€xit and return statements inside the body of a foreach loop 
-- may not work correctly if foreach loops are nested. 
—- an expression returned from within a loop body must not 
== mention any index variables of the loop. 
“= end expansion Of foreach loop macro. 
put("; "); res_put(map default (item) ); 
Peete}; 
end generic put; 


MMe S Se 6S SS gy a lt Ses A a a ced toes ole 
Be PLOCedure Name: generic tile put 


=— description: outputs map data to the screen 


—_——_— rm me te wwe ee er ee ew ee eee aie ie i i 


== “generic 

=— with procedure Keysputttile: in file type; k: an. key), 1s <>; 

"] With) procedure, Les purifile: in’ file type; ©: in result)-2s <>; 
procedure generic file put(file: in file type; item: in map) is 

Liv naturaie <= 


begin 


Za 


pue(iiile, “i. 7; 
-- begin expansion of foreach loop macro. 
declare 
procedure loop body(k: in key; xr: in result) is 
begin if 19> 1) then putl(iile,, "75 "); ends, 
put (file, "[")7 Key pucttile, kj sruc (tric. 
res put (file, =); epurwcile,. oe 
bee ee ae 
end loop body; 
procedure execute loop is new generic _scan(loop_body); 
begin 
execute loop (item); 
end: 
-- limitations: square brackets are used as macro guoting characters, 
-- so you must write [[x]] in the m4 source file 
-- to get [x] in the generated ada code. 
-- ada programs using foreach loops must avoid the lower case spellings of 
-- the identifier names "define", "“undefine", and "dnl", 
—-- or must guote them like this: [define]. 
-- the implementation reguires each package to be generated by 
-- a separate call to m4: put each package ina separate file. 
-- exit and return statements inside the body of a foreach loop 
-- may not work correctly if foreach loops are nested. 
-- an expression returned from within a loop body must not 
-- mention any index variables of the loop. 
-- end expansion of foreach loop macro. 
pute (file, "; 9"); restput (ile, map deraul et rten)), 
pucti ile, 7) 
end denerivce fi le spuc. 


-- procedure name: pair eg 


-- description: used to check equality of pairs, for Supporting pair seca 


wr ce we ce cr cr cr re wr er cr ew ww we we we we we we we we we we we es ce we we we we we ce ww ee a i i 


function pair eq(x, y: pal) return beclean 15 
begin 

return eg key(x.key val, y.key val) and then eq res(x res _valjymy. res vale 
end pair eg; 


-- procedure name: token 


-- description: used to parse input characters from input stream 


function token return character is 


-- blank 1s a constant array, see local constants section of package body 
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begin 
-- advance the lookahead stream to a non-blank character 
while blank (peek) loop 

Skip chax,; 

end loop; 
-- return the character without removing it from the stream 
return peek; 

end token; 

end Generic map. pkg; 


to 
tn 
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APPENDIX N. GENERIC SEQUENCE PACKAGE 
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ese @e @ @¢ ce 8& © @ @ @ © @ 8 
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-- $Source: /n/gemini/work/bayram/AYACC/parser/psdl_ada.lib/RCS/seq s.a,w 5 
=="S Date. 19S 097 2404222 

== SRevision. mo 

-- This implementation is limited: the Ada ":=" and "=" operations 

-- are not safe or correct for sequences. 

~=- Use the “assign” and “generic equal” procedures inusceada. 

-- An Ada limited private type could not used because of restrictions 


-- on generic in parameters of limited private types (see generic reduce); 


-- You should use the "recycle" procedure on block exit or subprogram return 
-- to reclaim storage for any local variables of type sequence declared in * 
== the eo. ock. 


-- Sequences are unbounded, but do not require heap storage unless 


=- the Vength of thevsequence exceeds the lochs ize- 


Wa Tiecgenet ic gle mp ca, 
-- with max; 
==> "With Square root pke, “Use. Sauda reeroor ape, 
with text lio; use text vio, 
generic 
type t 1s private; 
block size : in natural := 8; 
== ,averagersi ze. in nMacurd! .— Pe, 
-- The average number of elements per sequence, for efficiency. 


package generic sequence pkg is 


type sequence 1s private; 
type index array is array(natural range <>) of natural; -- used by fLetchuaa. 


package natural set pkg iS new generic set pkg (natural), 


subtype natural set is natural set _pkg.set; 


procedure empty(s: out sequence); 


procedure add(x; ian t; (s:. ameout Sequence): 
generic 
With function eq(x, vy: &) return boolean 12s", 


procedure generic remove (x: in €;, Ss: an Our sequence), 


procedure append(sl, s2: in sequence; s: out sequence); -- s := sl |[ s2. 
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function fetch (s:> sequence; n:-natural) return t; =—— PS pn. 

procedure fetch(sl: sequence; ia: index array; s: out sequence); -- si[s2). 

procedure fetch(sl: sequence; low, high: natural; s: out sequence); 
=-- sil{low .. high] 

function length(s: sequence) return natural; 


Euncte2on comain (cs: sequence) return natural set; 


generic 

With funce1 On .eq(x, y: t). “return boolean is: “<>; 
E£UNnctlon generic member(x: t; Ss: sequence) return boolean; -- x IN s. 
generic 


With TunctlOn eax, -¥s. cb) return booleam is ‘<>; 


£UNncCE1 On generic part of (sl, s2s Sequence) return boolean; == sl IN s2. 


generic 
with function eq(x, y: t) return boolean is <>; 


function generic equal(sl, s2: sequence) return boolean; 


generic 
Wiehe tunce lone <" (kK, Vric) return boclean as <>; 


PUnecETonegenerle less  than(sl, s2: ssequence) return boolean; 


generic 
Wren fUnCE1OnN. <x, Yi £) return boolean is -<>; 
MiEMstUNCE1On eQix, yu by return boolean is <>; 


EUnCLIOnN generic less than or equal (si, s2: sequence) return boolean; 


generic 
Wither Mnecr lon «(x /¥. ble*teturn boolean) 1S <>; 


EUNGELON Generic Greaker tLhan(si, s2: sequence) return boolean; 


generic 
Wither unce Ome. (h,) Vert) retprn boolean is <<>; 
WIth fulnet 1onm eqi{n, ‘va, &) return boolean. isi<>; 


fonction generic greater or equal(sl, s2: sequence) return boolean; 


generic 
With function eq(x, ys: £) return boolean is <>; 


function generic subsequence(sl, s2: sequence) return boolean; 


generic 
WithetUnction "“<"(k, ys t)) return boolean as <>; 


WLeh LuUnctaon —successor(x: €): return t-: 


=> Pib tks. bis Xk o<  y => successor (x) <= y) 
procedure generic interval(xl, x2: t; s: out sequence); a ee ee 
generic 


type et 1s private; 
type st 18 private; -- st = sequence{et} 


WIEN LUnCELOnN. fax: St) return £; 


with function length (s: st) return natural 1s 3 
with function fetch(s:> St; n: natural) return ee 15)--, 


procedure generic apply(sl: st; sz: out sequence); 


generic 
with function £(x; vy: 7 ©) seeurnese, 
1dent Vey ie ce 


function generic reduce(s: sequence) return t; 


generic 
with function fx, 7y- thererurn cc, 


function generic reducel(s: sequence) return t; 


generic 
with procedure generate(x: in t); 


procedure generic scan(s: sequence); 
exit from foreach, return, trom Loneach. sexcepr ion, 


—— System Luncteions,. 
procedure assign(x: out sequence; y: in sequence); -- x := y 
procedure recycle(s: in sequence); 

-- Recycles any heap storage used by s. 

-- Call recycle(s) just before leaving any block where 


-- a variable s: sequence is declared. 


-~- Text 1/0 procedures 

-- Package lookahead pkg and procedure input are used instead of get 
-- because text_io does not support examining a lookahead charactex 

-— from an input Lille without moving pase ict. 

-- One character lookahead is needed to parse Spec sequence syntax. 


generic 
with procedure inpue (item: out £) 1s <>; 
-- Read a sequence element from the lookahead stream, stream_machine pkg. 
procedure generic input (item: out sequence); 


-- Read a sequence element from the lookahead stream, stream machinempage 


generic 
With procedure input (item: eue ©) 1s <>, 
-- Read a sequence element from the lookahead stream, stream machineuprge 
procedure generic file input (item: out sequence; file: in file jeyeee 


-- Read a sequence from the file, using lookahead from stream machine _ pkg. 


-- The generic put procedures are designed to work with the standard 


-- put procedures provided by the predefined Ada data types. 
generic 


with procedure put (item: in t) 2s.5<-2; 


procedure generivc put (itemsein, sequence 
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generic 
WIE pEOceccUre (puri fite: 1p. £2 beveype, 2.Cen: 2n ct) is <2; 


Preccauresgencric ti leyputiliale- pint le type; 1tem: in sequence), 


bounds. error: excepulon, © —— Kaised by fetch. 
Empey reduction undefined; exception, —- Kazrsed by reduce. 
private 


-- A linked list containing up to block _ size elements per node. 

-- The header node is contained directly in the variable. 

-- Distinct sequences are contained in distinct memory locations, 

-- so the representation data structures can be safely modified without 


-- risk of interference. 


type link 1s access sequence; 


a= bet d.— average Size, b =“blockwsize, 

— p = #bits/pointer, e = #bits/element of type t 
-- Expected space overhead = 0 = (a/b)*p + (b/2)*e 

-- minimize o: do/db = 0 = -ap/b*b +e/2 


-- optimal b = sqrt(2*a*p/e) 

eae DieeksSi ze. constant: natural 

-- := max(l, natural (square root(float(2 * average size * link'size) 
-- f/f Eloat (t* size)y)))-> 


eYyYDCTeLeMeNntUsitype iS array{(] «. block Size) “of t; 


type sequence is 


record 
length: natural := 0; -- The length of the sequence. 
elements: elements type; == A pretix of the sequence. 
next2) link. += nue: -- The next node in the last. 


end record ; 
—-—_Blements{[l .. min(length, block Size) |] contains cata- 


end generic sequence pkg; 


amem & © © © ¢ © 8 © © €& @ ©@ @ @ @ 
ee @ © # © © @ © © © ©» © @ @ 


ama ee fe ee es ee eh hl hl hUlUh hl 
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-- $Source: /n/gemini/work/bayram/AYACC/parser/psdl_ada.lib/RCS/seq b.a,v §$ 
=e eo mete: 1991/09/24 -10:42:277s 
-- $Revision: 1.5 § 


-~- Warning: due to a bug in vedix Ada version 6.0. 

m= ele Senecessary LO patch) the definitions “of 

=- generic remove and generic member, 

==ebO Introduce local copies of procedure parameters (such as loeal x) 


—-- to work around a case where variable references get confused. 
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with unchecked deallocation; 


with lookahead pkg; use lookahead pkg; 


with delimiter pKa, 
-- generic 

== Eype  t S1sseriavate: 

== block size: ingnacural 


use delinicer pka, 


2= 52. 


package body generic sequence pkg is 


USE Naturaleset pKa, 


recycle list: link ee] null; 


nodes In recye lew iict nated. 


nodes in use: natural := 0; 


=— Invariant: nodes jin recyclcubices— 


Local 


functicn copy. 1st ( lank) 


function create(len: natural; 


TUNncEI On 


@. element smcype, 


== For the domain operation. 


-- The recycle list for recycling storage: 


s= 0; -- The length of the recycle list. 


-- The number of sequence heap nodes in use. 


length (recycle list) <= nodes anwiigee 


subprogram declarations. 


FeLurn ol ami > 


next: link) return line, 


token return character; 


-- End local subprogram declarations. 


Constant declarations. 


is-blank: Constant delimitersaruay.. = 


End constant declarations. 


procedure empty(s: 


sl: sequence; 
begin 
S := si; 


end empty; 


out sequence) 


initialize delimiter sarray, 


le 


-- Default initialization gives an empty sequence. 


procedure add(x: “an .t; s:"aneout sequence) 1s 
begin 
s.length: := "s. length + 1; 
if s.length <= block size then 
s.elements(s.length) := x; 
elsif s.next = null Chen 
S,next += create(l, (others =>7s)) null); 


else add(x, 
end if; 
end add; 


S.next.all)- 


=segene wie 


== With tfunceion, eqtx, youre) 


procedure generic remove (x win 


Remove all instances of x 


Ss; sequence; -= Initiralized 


leeal x: t <= x; )-= pacecna ro 


begin 


return boolean is <>; 
t; Ss: 


fronwss 


in out sequence) is 
Co eEmpuy- 


work around compiler bug, verdix version 6.0. 


-- Begin expansion of FOREACH Joop macro. 


declare 
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procedure locp body (yy: <) 25 
begin if not eq(local x, y) then add(y, ss); end if; 
end loop body; 
procedure execute loop 1s new generic _scan(loop_body); 
begin 
execute loop(s); 
end; 
-~ LIMITATIONS: Square brackets are used as macro quoting characters, 
-- so you must write [[x])] in the m4 source file 
-~- to get [x] in the generated Ada code. 
~- Ada programs using FOREACH loops must avoid the lower case spellings of 
-- the identifier names "DEFINE", "“UNDEFINE", and "DNL", 
-- or must guote them like this: [define]. 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package ina separate file. 
-- Exit and return statements inside the body of a FOREACH loop 
—-- may not work correctly if FOREACH loops are nested. 
—-~ An expression returned from within a loop body must not 
-—- mention any index variables of the loop. 
=—- End expansion of FOREACH loop macro. 
recycle (s),; 
S := SS; 


end generic remove; 


procedure append(sl, s2: in sequence; s: out sequence) is 
Ss: sequence; -- Initialized to empty. 
begin 
-- Begin expansion of FOREACH loop macro. 
declare 
preocecure loop body ix: £) 1s 
begin add{x, ss) ; 
end loop body; 
procedure execute loop is new generic scan(loop body); 
begin 
execuce, loop (sl); 
end; 
~- LIMITATIONS: Square brackets are used as macro quoting characters, 
-=——SO you Must write [{x])] iam the m4 source file 
-- to get [x] in the generated Ada code. 
~~ Ada programs using FOREACH loops must avoid the lower case spellings of 
=— the identitter names “DEFINE”, “UNDEFINE", and “DNL”, 
=-== Or must quote them like this: [define]. 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
-- Exit and return statements inside the body of a FOREACH loop 
-- may not work correctly if FOREACH loops are nested. 
=="Ab expression returned from within a loop body must not 
== MeENtlon any tndex Variables of the loop. 
-- End expansion of FOREACH loop macro. 
wa <B@Gin expansion GClAarOREAGH Joop macro. 
declare 
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procedure loopybody (36) e1- 

begin add(x, ss); 

end loop body; 

procedure execute loop is new generic scan(loop body); 
begin 

execuce Joop isZie 
end; 
-- LIMITATIONS: Square brackets are used as macro quoting characters, 
-- so you must write [[x]] in the m4 source file 
-- to get [x] in the generated Ada code. 
-- Ada programs using FOREACH loops must avoid the lower case spellings of 
-- the identifier names "DEFINE", "“UNDEFINE", and "DNL", 
-- or must quote them like this: [define} . 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
-- Exit and return statements inside the body of a FOREACH loop 
-- may not work correctly if FOREACH loops are nested. 
-- An expression returned from within a loop body must not 
-- mention any index variables of the loop. 
=—- End expansion of FOREACH Sieco macro. 
S =. ss; 


end append; 


function fetch(s: sequence; n: natural) return t is 
begin 
if n > s.length then raise bounds error; 
elsif n <= Block size then return s.elemencecany, 
else return fetech(s.next.all,engs o> lockusi ze), 
end if; 
end fetch: 


procedure fetch(sl: sequence; i1a> index array, SS: oueecequemcea jus 
ss: sequence; -- Initialized to empty. 
begin 
for iin ia'range loop 
add(tecch( ss) s2-41)4),...65) > 
end loop; 
S := Ss; 
end fetch; 


procedure fetch(sl: sequence; low, high: natural; s: out sequence) is 


== Si i low io. nagh) 
SS: sequence; --- initialized te empey. 
begin 
for 2. in low 2. high sloop 


add (feten( cli) cc 
end loop; 
S := ss; 
end fetch; 


function length(s: sequence) return natural is 
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begin 
return sS.tengeh, 


end length; 


fUNECELON domain(s: Sequence) return Natural set is 
ns: natural set; 
begin 
empty (ns); 
For vin 3) os Ss lengen loop 
adatay. sisi. 
end loop; 
Betws. yns | 


end domain; 


=— generic 
—— with function eq(x, y: t) return boolean is <>; 


BUnGelOnMgcneE re member (xb, 2S sequence) return boolean as 


local x: t := x; -- patch to work around compiler bug, verdix version 6. 


begin 
—— Begin expansion of FOREACH loop macro. 
declare 
Precedure loop Body (y: ct) 1s 
begim rteeqiccal ix, yy) then. 2aise Leturn trom toreach;- end -1 ty, 
end loop body; 
procedure execute loop 1s new generic scan (loop body); 
begin 
execute loops); 
exception 
When cLecurn trom Loreach j=--- return Crue; 
end; 
-- LIMITATIONS: Square brackets are used as macro quoting characters, 
== so you must write [[x]] in the m4 source file 
-- to get [x] in the generated Ada code. 
-- Ada programs using FOREACH loops must avoid the lower case spellings 
== the 2dentitier mames "DEFINE’, "UNDEF INE", and "DNL", 
-— OF MUSt QuoOee then dike this) [define |< 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
—-- Exat and return statements inside the body of a FOREACH loop 
-- may not work correctly if FOREACH loops are nested. 
=A €xpLessi On Lreturned- trom within ay Oop body must not 
-- mention any index variables of the loop. 
—-- End expansion of FOREACH loop macro. 
return(false) ; 
end generic member; 


== generic 
=> With funGceiton -eq(x, Vi tt) return boclean is <->; 
function generic part of(sl, s2: sequence) return boolean is 
He  Neaeirel. = 0: 


—= The definition of ™mawenes ac. is nested inside "member" 
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of 


—-- to provide access to the generic function parameter "eq": 
function matches at(sl, s2: sequence; n: natural) return beoleawer. 
is natural <:= 0; 


begin 
while i < length(sl) loop 
—— Invariant: sl(l 22 1) = s2in 2] aril) 
if eq(fetch(sl, i + 1), feteh(s2, n +. 21)) then i 53-— 35 aes 


else return false; end if; 
end loop; 
FeeCvuErn Levee, 
end matches at, 
begin 
while n + length(sl) <= length(s2) icop 
-~ Invariant: sl does not match s2 at positions <= n 
if matches at(sl, s2,; n + J) then return Crue; 
else n 2= note end iE: 
end loop; 
return false; 


end Generic partece, 


—~- generic 
=- with function eq(x, y: t) return boolean is <>; 
function generic equal(sl, s2: sequence) return beolean is 
Size: natural; 


begin 
if sl.length = s2.length then size := sl.length; 
else return false; end if; 
£6 iy si) 14s eS 7 ee oar 
if not eq(fetch(sl, i), feteh(s2, 1)) then return false, endae 
end loop; 


return true; 


end (genericyequal, 


== ener ie 
== with function §"<" (x, “vy: 5t). retirnybeolecanmis 4, 

function generic jess than(sil, S2: sequence) returngbocleang1s 
size: natural; 


begin 
if sl.length <= s2.length then size <= si*lengeh; 
else size := s2.length; end if; 
£Or 2. inti size oop 


if fetch(sl, i} < fetch(s2Z, 2) thenweel urn crue, 
elsif fetech(s2, 1) < feteh(sl, i) then return talce, 
endir it ; 
end 1oop; 
return si. tengen < s2.iengen; 
end generic less than, 


== generic 


=- with function “<" (x, y= tj return pcotveanni ce, 


—-=— with function eqtx, vy: £)) reviwrmepootcan 1s <>, 
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Funet ion Genericoless than or equal(si, s2: sequence) return boolean 
function lt. is new generic: less than; 
function equal is new generic equal (eq); 

begin 
return Jtcsl, SZ)-"orselse equalitsl, sz); 


end generic less than or equal; 


—— generic 
== With funcelon  <- (x, VY? ©) return boolean 1s <>; 

functien generic greater than(sl,. sz: sequence) return boolean 1s 
funccion lt 2s mew Generic less than; 

begin 
Feturny Jb(s2, sl): 


end generic greater than; 


-- generic 
—> With function *%<"(x, y: t) return boolean is <>; 


=— With tunccion eq (x, vi0t) return boolean is <>; 


function generic greater or equal(sl, s2: sequence) return boolean is 


€uUncr1on lteis new generic less than; 

£uUneCULonPegual 12S new generic equal(eq),; 
begin 

return 10 (s2, sl) or else equalitsl, s2Z); 


end Generic greater or equal; 


== generic 
——" With funec ion eq (x, ys tt) return boolean is <>; 


function generic subsequence(sl, s2Z: sequence) return boolean is 


1s 


iin tee Natural <= 90> 
begin 
while 11 < sl.length loop 
=~ (nvariant: subsequence (sl il .. a1), s2il...2712)). 
=e lL DVeriant = aio5-= -siolengeh &si2 <= s2Z.lengch. 
tf i2s= s2.Jlength then return false; else a2Z2/2= 12 4 1; end if; 
memeq Tecen (Slyeiee 1), fetem(S2, 2) ) then gi f= 1) °+ 1 end ar; 
end loop; 


return true; 
end generic subsequence; 
-- The above alogrithm can be speeded up by doing parallel 
== scans Of sland sz, eliminating the use of fetch. 
-— This was not done because it is complicated 


-- and because we do not expect this to be a frequent operation. 


=—) Generic 
~SewLeh LUnCEIOnN” < (Xx, ye. bt) return boolean. is: <>; 


-— With Lunct ton. successor (x: Lt) Pet urn tt; 


== AULA ys tb. 4: KX < y =P>esuccessor (x) <= y) 

procedure generic interval (xl, x2: t; s: out sequence) is 
SS: sequence; -- Initialized to empty. 
Ve = oc, 

begin 


while not (x2 < y)= loop ——= Invariant: x1) _ay. 
add({y, ss); 
Y := successor (y); 

ena alocp; 

S := SS; 


end generic interval; 


=— generic 

—— type ct is private; 

-- type st is private; -- st = sequence{et} 

—= With £unceion £ (x: "Sle retucn. £; 

=-- With function length (Ss: St) return natural, is )--- 

-- with function fetch(s: st; n: natural) return et is <>; 
procedure generic apply(sl: st; s2: out sequence) is 


SS: sequence; -- Initialized to empty. 
begin 
for 1-in 1... Jength (si arco 
add(i(tetchnisl, .2))7 ss). 
end loop; 
s2 := sS; 


end generic apply; 


== Generic 
=— With. funecrilon © (yea t) ss ceturnec. 
== LdenEIEy. ty 
function generic rseduce(s: Mscquence) Greturn Ceas 
xi Cls= 2adentitcy, 
begin 
-- Begin expansion of FOREACH loop macro. 
declare 
procedure loop body (y.5t) 51s 
begin x i= £(y,. x); 
end loop_body; 
procedure execute loop is new generic scan(loop body); 
begin 
execute loop(s); 
end; 
-- LIMITATIONS: Square brackets are used as macro guoting characters, 
-- so you must write [[x]] in the m4 source file 
-- to get [x] in the generated Ada code. 
-- Ada programs using FOREACH loops must avoid the lower case spellings of 
-- the identifier names "DEFINE", "UNDEFINE", and "DNL", 
—- OF must quote them like this: [define]: 
-~- The implementation requires each package to be generated by 
-- a separate call to m4: put each package in a separate file. 
-- Exit and return statements inside the body of a FOREACH loop 
—- may not work correctly if FOREACH loops are nested. 
-- An expression returned from within a loop body must not 
—-- mention any index variables of the loop. 
-- End expansion of FOREACH loop macro. 
return x; 
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end generic reduce; 


==" generic 
SSW anor POM hk Yi.) retu rices 


LUNGLICHN Generic reducel(s* sequence), return t 1s 


Ke eae 
1 “natural: ved 
begin 
Tf S,lenoqceh =O then raise emply reduction undetined; end if; 
Xe e PeCCn (Ss, a) 


-—= Begin expansiom Of FOREACH loop macro. 
declare 
procedure loep body(y: £) 1s 
becganwit doe bien xot— si (Vv, x) end ip 2. «= 1. 1; 
end loop body; 
procedure execute loop is new generic _scan(loop body); 
begin 
execute loops); 
end; 
-- LIMITATIONS: Square brackets are used as macro quoting characters, 
-- so you must write [[x]] in the m4 source file 
-- to get [x] in the generated Ada code. 
-- Ada programs using FOREACH loops must avoid the lower case spellings of 
== the adentifier names “DEFINE”, “UNDEFINE", and "DNL", ‘ 
-- or must quote them like this: [define]. 
-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package ina separate file. 
-- Exit and return statements inside the body of a FOREACH loop 
-- may not work correctly if FOREACH loops are nested. 
-- An expression returned from within a loop body must not 
-- mention any index variables of the loop. 
-— End expansion of FOREACH loop macro. 
return x; 


ena generic reducel, 


procedure Generic scan (s. sequence) is 
t: sequence := s; 
begin 
while to next /= null l6o0p 
GO 2 in 1 block. size Toop 


generate (t.elements (1) ); 


end loop; 
& s= tsnext.all; 
end loop; 
£Or cians 2 t. length..16ep 


Generate (t.eVvements (1)); 
end loop; 


end generic escan, 


-- System functions and local subprograms. 
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procedure assign(x: out sequence; y: in sequence) is 


begin 
x. length == oy. length: 
x.elements := y.elements; 
XNextes= copy (sey nex s, 


end assign; 


function copy last (ie ink) Se rerurneinkends 

begin 
if 1 =] Aull then Beturn 
else return create (1. length, l-elements, (copy 1ise(t -next 
end it; 

end copy list, 


function create(len: natural; e: elements type; next: link) return iio 
eee race 

begin 
nodes in use := nodes in use + l; 
iia recyele last = enue tien 


return new sequence'(len, e, next); 


else I <= recycle list; 
recycle list =:— recycle pilvseame xt, 
nodes in recycle 1156) — nedestinereeyeley 1cena, 
l.length := len; l.elements := e; l1.next := next; 


return 1; 
end sit; 


end create; 


procedure recycle(s: in sequence) is 
l: Jaink == S.next; 
head, temp: link; 


procedure free is new unchecked deallocation(sequence, link); 


begin 
white: Ie; —= nul ileioop 
head := 1; 1 := 1.next; 
nedes in wse =-— nodes in use > 1, 


Tf nodes in recycle 11st = nodes in wee scien 


temp := recycle list; 

recycle list: — nea, 

recycle listsnext <=— temp; 

nodes in recycle list := nodes ine recyecle sist a al, 


else free (head); 
end if; 
end loop; 


end recycle; 


=—- ‘generic 

-- With procedure input (vtem our t) srsece, 

procedure generic inpuc (item: out sequencojees 
Ki ee 


S$; sequence; -— Working copy of the result, initaalazed to empty. 
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begin 
pe Chet a/— escad bracket then erase data error, end (12; 
skip char; -- Pass over the opening left bracket. 


while token /= ascii.r bracket loop 


input(x); -- Read and pass over the next element of the sequence. 
add tx. °s); -- Add the element to the sequence. 
ce eeken =) 75 chen Skip char; -> Another element shourd rollow. 


eleif token /- ascii-f bracket, then raise dataverror,; 

-- 1f there 1s no comma we should be at the end of the Sequence. 

end if; 
end loop; -- Now the closing right bracket is the lookahead character. 
skip char; 
item := Ss; 

exception 

when others => raise data _ error; 


end generic input, 


-- generic 
sca wath (precedure Input (item: cut €) 1s. <>; 
Peecedune Generic file linput (item: oul sequence; file? in file type) as 
PECcedUuse get (Sequence 12S new generic ianput; 
begin 
set anpuc (fite):; --~ Connect the lookahead stream to the file. 
gece sequence (item); 
Secs Inpuc (Standard input); -— Restore the “standard anpuc fate. 


Snt@agene hice. ales inpuL, 


function token return character is 

~~ Blank is a constant array, see top of package body. 

begin 

~- Advance the lookahead stream to a non-blank character. 
while =is blank (peex) loop iskip char, end loop; 

== Return the character without removing it from the stream. 
return peek; 

end token; 


== Generic 
=e With procedure put(item: int) is <>; 


Procedure generic put(item: in sequence) is 


begin 
pee (aceii i Jbrackee); 
if length item) >= J then put (feteh (atem, 1)); “end if; 
£Or-2 in 29.. ‘length (item) <lLoop 
puc(*,”); 


pue(fetch (item, i) )+ 
end loop; 
put (ascii.r bracket) ; 


ene ener ve pur, 


-- generic 


-- with procedure put (file: an file type; item: in t) as <>; 
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procedure generic fale put (file: in file type; item: an sequence mr. 
begin 
put (file, ascii.l Bracket); 
if length(item) >= 1 then put(file, fetch(item, 1)); end if; 
for 1 in 2 .. Jength G@tem) sloop 
PUEf ile, ee 
put (file, fetch (item,e ee 
end loop; 
put(file, asci2a 2 bracner); 
end generic file put; 


end generic sequence pkg; 
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APPENDIX O. GENERIC STACK PACKAGE 
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-- $Source: /tmp_mnt/n/gemini/work/bayram/AYACC/parser/RCS/stacks.a,v §$ 
-- $Revision: 1.2 $ -- $Date: 1991/07/31 04:28:41 $ -- SAuthor: bayram $ 


with lasts; —=| Implementation uses lists. (private) 
generic 
type elem type is private; --| Component element type. 


package stack pkg is 


== | OVErview : 

--| This package provides the stack abstract data type. Element type is 
--| a generic formal parameter to the package. There are no explicit 
--| bounds on the number of objects that can be pushed onto a given stack. 
--| All standard stack operations are provided. 


--| The following 1S a complete list of operations, written in the order 
--}| in which they appear in the spec. Overloaded subprograms are followed 
--{| by (n), where n is the number of Subprograms of that name. 


al) CONSLIUCTOrS: 
=| create 
got push 

aA | pop (2) 
=| copy 

-—| Query Operations: 
| Lop 

a= | Size 

cae is empty 
= =| wpeplace sop 
a | Ge verse stack 
--| Heap Management: 
ae destroy 


--| Notes: 


Oy 


type stack is private; --| The stack abstract data type 
= EXCeptionee 


UnanitializZedestacw excep 10n, 
--| Raised on attempt to manipulate an uninitialized stack object. 
--| The initialization operations are create and copy. 


CNDEY acide se .cepe not, 
-~-| Raised by some operations when empty. 


== COnSeLuUerors. 


function create 
reCLUrn useack; 


eet eetcs 
--| Return the empty stack. 


Procedure push(S: 1m eur Stecr, 
e: elem type) ; 


=— | Ravses >> Uni naeialzedystaer: 

= |e hEecusa. 

--| Push e€ onto the top of s. 

--| Raises uninitialized stack iff s has not been initialized. 


procedure pop(s: in out stack); 


==| Raises. Cilety “Stack, Uninat tae rZecect ae 

== |) EP reges: 

--| Pops the top Glement from s, and throws 2t Java, 

--| Raises empty Stack iff ‘s is empty. 

--| Raises uninitialized stack iff s has not been initialized. 


procedure pop(s: in oue Sseack, 
er out elem type); 


--| Raises: empty Stack, uminitialized staes 

Set tects. 

--| Pops the top element from s, returns it as the e parameter. 
--| Raises empty stack ait s as empry= 

--| Raises uninitialized stack iff s has not been initialized. 


Zi2 


procedure replace top(e: im elem type; 
S-. if Cut Stack); 


==| Raises: empty Stack, uninitialized stack 

== | -E&recus: 

--|) PTeplaces-tne-too ef the Stack with the mext ec, 

--| .. returns S as the modified satck. 

——|sRaiSesecmpuy stdGk 11? SiS venpty. 

=—a~leRaLSeS Wiinitiealyzed Stack’ 1tites has not been initialized. 


procedure reverse stack(s: in out stack); 


—\|sROvses: SoMpLy stack, uninitialized. stack 

=ieerPeCce s. 

--| reverses the order of the elements un the Stack s, 

=-—| 2-3. GTELUINS S aS the modified satck. 

--|*RaisSes empty Stack-i1f ‘s-1S empty - 

Srila scoulnamtitiealized stack 1ff %s Nas met been init talyzed. 


EUNCLLOM copy (S;- Stack) 
Ferurn stack; 


Poll Pha tSeo UMM Lala Zod stack 

=-| Revurm ca: Copy. Ors. 

=——|' Stack assignment and passing stacks as subprogram parameters 
=—| result in the sharing of a Single stack value by two stack 
--| objects; changes to one will be visible through the others. 
--| copy can be used to prevent this sharing. 

--| Raises uninitialized stack iff s has not been initialized. 


-- Queries: 


fUMECTLION top(s: stack) 
return elem type; 


——| Raises: empty stack, uninitialized stack 

--| Effects: 

—- I RCGUtnet He element On tie -tOp.of ™sc. Raises empty Stack iff Ss is 
=i) -Smpt y= 

2-1 RalseseUniMitiealized stack iftys has mot been initialized. 
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fUNCTION Size(s: stack) 
a= eae ie che bee sls 


—=| Raises Unintt tale Zedusrack 

==||C Er reces- 

--| Return the current number of elements in s. 

--{ Raises uninitialized stack iff s has not been initialazece 


function is _empty(s: stack) 
return boolean; 


=—| Raises: uninitialized stack 
==| ELieees: 


==| ReELUCh Eee tt Ss etseci pry 
--| Raises uninitialized stack iff S has not been initiates 


-- Heap Management: 


procedure Gestroy(s: sn Our sseac); 


——| Brteerce 
--| Return the space consumed by s to the heap. No effect if s 1s 


! 


--| uninitialized. In any case, leaves S$ in uninitialized yseames 


private 


package elem list pkg is new lists(elem type); 
subtype elem list is elem list _pkg.list; 


type stacker ce as 


record 
$ize: natural := 0; 
eles. elem list elem li siae G eredue, 


end recend, 
type stack is access Stack “ec; 
--| Let an instance of the representation type, r, be denoted by the 
--| pair, <size, elt@s>. Dot selection 2s wsead to refer eomene 
--| components. 
-~-| Representation Invariants: 


| r /= null 
=| elem list pkg: Tengen eles) —ehesw2e 
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-7 Steet ion Funct zone 
=F | Pi size, clemplist, phG.creave?) = Stack pig eredcre:. 
== Picsize, clemetast pro.attaci(e, 1)>) = push(A(<size, i>); e). 


end stack pkg; 


—_——_* © © © © © © © © © © © © &© © 
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-- $Source: /tmp mnt/n/gemini/work/bayram/AYACC/parser/RCS/stack b.a,v $ 
= eoReVisaOn:  l-2,S —- sDate: 1991/07/31 04:28:29 S& -—— SAuthor: bavram S$ 


with unchecked deallocation; 
package body stack pkg is 


--| Overview: 

--| Implementation Scheme is totally desScribed by the statements of the 
--| representation invariants and abstraction function that appears in 
--| the package specification. The implementation is so trivial that 
=——| further documentation iS unnecessary. 


use elem list pkg; 


—— Onset ructors: 


function create 
return stack is 
begin 
return new stack rec'(size => 0, elts => create); 
end create; 


PEOCcedure pushn(S: in out. stack; 
elem type) is 


begin 

SPSi26 St=eseSize + 1; 

s.elts := attach(e, s.elts); 
exception 


when constraint error => 
raise uninitialized stack; 
end push; 


procedure pop(S: in@out Stack) is 


begin 
DeleteHead(s.elts); 
S$.Size := s.size - 1; 
exception 


when EmptyList => 
raise empty Stack; 
WHET “CORSE fa Phe Ca l@ tages 
raise uninitialized_stack; 
end pop; 


procedure pop(s: in out stack; 
en Ouc Slee ery) 
begin 
e := FirstValue(s.elts); 
DeleteHead(s.elts); 
S«SiZze (= 4S.Size 71; 
exception 
when EmptyList => 
Palse seilpiny omelera, 
uelshel elo) plicegss Ln febginieie = 
Galse Unable li zedustack, 
end pop; 


Drecedure ep! ace (hop (ce selma Pelmnypc, 
Si in out Stack) wis 


temp elem: elem type; 


begin 
pop(s, temp elem); 
push(s, e); 
push(s, temp_elem); 
exception 
when EmptyList => 
False Empty vomaek, 
when constraint error => 
raise uninitialized stack; 
end neplaceseep, 


procedure LTeverse Stack (sin sour sec a4 


216 


is 


temp : stack := create; 
begin 
while not is_empty(s) loop 
push(temp, top(s)); 
pops); 
end loop; 
S := copy(temp) ; 
destroy(temp) ; 
exception 
when EmptyList => 
raise empty _Stack; 
whieneecOusulaint ECrror-=-> 
RatsonUnigtt tal zed. Stack; 
end reverse stack; 


FUnCEION Copy (Ss: Stack) 
Weer ies tac ais 
begin 
gf S = nul? then raise uninitialized stack; end af; 


BeEUrnamew Stach Free (Size => S.S1ze, 
eltsa—> Gooy (s.elts)> ; 
end; 


—-- Queries: 


PiMeeroOnr ton Ss) Stack) 
return elem type is 
begin 
return FirstValue(s.elts) ; 
exception 
when EmptyList => 
BatSse Cpl ys otacn, 
PHeM CONS Taint error => 
Baise Uninittala zed stack; 
ENG COp; 


Funct LOM size(s* stack) 
return natural is 

begin 
return Ss “S126; 

exception 
Wien Const bdimt er ror i> 
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Faise uUninitializeduseac, 
end size; 


function is empty (Sse ceach) 
return boolean is 
begin 
return s.size = 0; 
exception 
when) GCOnstralnt error y= 
raise uninitialized_stack; 
end is_ empty; 


-- Heap Management: 


procedure destroy(s: in out stack) is 
procedure {free Stace as 
new unchecked deallocation(stack rec, stack); 
begin 
destroy(s.elts); 
LreCeeseackilcs, 
exception 
Sioleho (oigisieies stove (eneicioue = == StdGhe 1s nial 
return; 
end destroy; 


end stack pkg; 


278 


ee *® ee 8 8 
es © ¢ «6 


generic 
e 


Ww 


package 


—==—| Thi 
a) Lee 


--| Ove 
--| Whe 
--| lis 
==—| com 


--| tho 
--| all 


=-| typ 


=lbipac 


=—=|| ‘The 


=nt| | Mote 


==|[ Ate 
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s.a 
ype ItemType is private; --| This is the data being manipulated. 
Sth function Equal ( x,y: in ItemType) return boolean is "="; 
--| This allows the user to define 
==| equality on Itemlype. For instance 
--| aif ItemType 1s an abstract type 
-~| then equality is defined in terms of 
—-—-|) the abstract type: If this function 
=--| is not provided equality defaults to 
—-| = 
Lists is 


s package provides singly linked lists with elements of type 


mType, where ItemType is specified by a generic parameter. 


rview 


n this package is instantiated, it provides a linked list type for 


ts of objects of type ItemType, which can be any desired type. A 
plete set of operations for manipulation, and releasing 

se lists is also provided. For instance, to make lists of strings, 
that is necessary is: 


G,oc ring Vvpe 2s string (17.10); 
Kage Str List is new Lists (StringType); use Str List; 


Es Last: 
Si String] ype; 


nto adda string S, to the list L, all that is necessary is 
L := Create; 

Attach(S;lL): 

s package provides basic list operations. 


ach append an object to an object, an object to a list, 


Or a list ’to-an object, cr a liste toe a. list. 
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Copy 
CopyDeep 


Create 
DeleteHead 
DeleteItem 
DeleteItems 
Destroy 
Dest royDeep 
Equal 
FirstValue 
Forward 
isinbist 
IsEmpty 
LastValue 
Length 
MakeList 


MakeListIter 


More 

Next 
ReplaceHead 
ReplaceTail 
Tail 
CellValue 


N/A®= Effects, 


Notes 


type List 
type ListIter 


Cirenlariiui1st 


Empeyiast 


ItemNotPresent 


Requires, 


copy a list using := on elements 

copy a list by copying the elements using a copy 
operation provided by the user 

Creates an empty list 

removes the head of a list 

delete the first occurrence of an element from a list 
delete all occurrences of an element froma list 
remove a list 

destroy a list as well as the elements in that list 
are two lists equal 

get the information from the first element of a dis. 
advances an iterator 

determines whether a given element is in a given list 
returns true if the list is empty 

return the last value of a list 

Returns the length of a list 

this takes a single element and returns a list 
prepares for an iteration over a list 

are there any more items in the list 

get the next item ina list 

replace the information at the head of the list 
replace the tail of a list with a new list 

get the tail of a list 

this takes an iterator and returns the value of the element 


whose position the iterator holds 


Modifies, and Raises. 


1S private; 


is private; 


Exceptions 


Raised if an attemp is made to 
This 
--| results when a list is attempted 
--| to be attached to itself. 


--| create a circular list. 


:exception; --| Raised if an attemp is made to 
--| manipulate an empty list. 
:exception; --| Raised if an attempt is made to 


--| remove an element from a list in 
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--| which it does not exist. 


NoMore seACeDpt TON; --| Raised if an attemp is made to 
--| get the next element from a list 


--| after iteration is complete. 


—— | Operations 

| ee oe ae ee ee 

procedure Attach ( =—| appends List2 to List! 
List: in out Lbist;) ——|. The list being appended. to. 
List2: an List --| The last being appended. 


i 


--| Raises 
--| CircularList 


--| Effects 

--| Appends Listl to List2. This makes the next field of the last element 
--| of Listl refer to List2. This can possibly change the value of Listl 
=—-| if Listi as an empty list. This causes sharing of lists. Thus if 

--{ user Destroys Listl then Last2 will be a dangling reference. 

=——-| This procedure raises CircularList if Listl equals List2. If it is 
--| necessary to Attach a list to itself first make a copy of the list and 
——| actach the- copy . 


--| Modifies 
Zrimchanges ine next tield of the Ja@st elenent an Last] to be Listz., 


emma a we wee we we we we we ee 


Function Attach ( --| Creates a new list containing the two 
--| Elements. 
Elementl: in ItemType; --| This will be farst element in list. 
Element2: in ItemType --| This will be second element in list. 
) return List; 


--| Effects 
--| This creates a list containing the two elements in the order 
——| -specitied: 
procedure Attach ( --{| List L is appended with Element. 
i: In out. Last; --| List being appended to. 
BLementa +) in ItemType =='| Thais wit) (be Last element ant aS Gr, 
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— eb ibects 
--| Appends Element onto the end of the list L. If L is empty then this 


--| may change the value of L. 


--| Modifies 


--| This appends List L with Element by changing the next field in List. 


mmc ce mew cc wc ce ec ce ce cr cr we ce ew cr ar es we we ee sw we we we we we ae ee ee 


procedure Attach ( --| Makes Element first item in list L. 
Element: ain ItemType; --| This will be the first element in list. 
L: Ihe) Outen st --| The List which Element is being 


--| prepended to. 


--~| Effects 


--| This prepends list L with Element. 


--| Modifies 
--| This modifies the list L. 


function Attach { --| attaches two lists 
Lbisti ein Last: ==| first list 
LbistZ sain List --| second list 


)}) returns bast: 


--| Raises 


--| CireularList 


--| Effects 
--| Thas returns a list which is Listl attached to List2. If it rs desi 
--| to make Lastl be the new attached list the following ada code should be 


== | used). 

aa 

=-=| Listil == Attache Listl, Listz)- 

--| Thais procedure raises CircularList if Listi equals ListZ2.)) if Stee 


--| necessary to Attach a list to itself first make a copy of the list and 
=—|> atlacherne ‘copy. 


mcm crm re re mmc ce ee wc ce cw we ce ee ew ec ec we we we ee we we ee ee ee ee ce ee we ee ee ee we ws we we we we we we we we we = 


EuNCEPeGnN AEE ach a --| prepends an element onto a list 
Element: in ItemType; --| element being prepended to list 
Ls sig: List --| List which element is being added 
—— | ee 


) return List; 


--| Etfects 
--~| Returns a new list which is headed by Element and followed by L. 
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em ee ce ee er re ie i 


funct: von Attach». ( --| Adds an element to the end of a list 


ee es Giese, --| The list which element is being added to. 
Element: in ItemType --| The element being added to the end of 
--| the list. 


Perec urn. List; 


—--—| Effects 
--| Returns a new list which is L followed by Element. 


em ec ce a ae i ee 


Punce1on Copy [ =—| 7 Teturus a copy of Tistl 
Ls abst --| list being copied 
fiererurn bist? 


--| Effects 
a Recurns a copy sof L. 


mm me ee ee ee i 


generic 


With Lunce lon sGopy (ls in ItemType) return ItemType; 


function CopyDeep ( =—| returns “a copy of list using a user supplied 
==|Scopy function. Thais as helprul af the type 
i|hvor oe iSt- 18 ai absctract..data» type. 
be ees OX 0) Lust. =—|) Lisexsbeing copied. 
jy ereturn List; 


== || dpe d=toyee 


--| This produces a new list whose elements have been duplicated using 


s-leene Copy function provided by the user. 
function Create --| Returns an empty List 


return List; 


_—<— re ee ee ee es eee es ae ee ee ee ee ee Ce 


procedure DeleteHead ( --| Remove the head element from a list. 
ii hans OU Guia si --| The list whose head is being removed. 

Ne 

=—| RAISES 

=| -EmpteylList 
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=—|) "EPFECTS 

--| This will return the space occupied by the first element in the list 
--| to the heap. If sharing exists between lists this procedure 

--| could leave a dangling reference. If L is empty EmptyList will be 


-=| raised. 
procedure DeleteItem ( --| remove the first occurrence of Element 
—— |) romans 

tes in Out base, --| list element is being removed from 
Element: in ItemType --| element being removed 

i; 

==) EEERCTS 

--| Removes the first element of the list equal to Element. If there is 


--| not an element equal to Element than ItemNotPresent is raised. 


==| MOPIFIEe 
--| This operation is destructive, it returns the storage occupied by 


== |) therolemecnts soctnqeadc lh ecar 


a a a a a a a a ee ie 


function DeleteItem( --| remove the first occurrence of Element 
|| enarenyh U 
L: in hivste --| list element is being removed from 
Element: in ItemType --| element being removed 


) return List; 


=—)| ERBEGIS 


--| This returns the List L with the first occurrence of Element removed. 


etl ln 


function DeleteItems ( --| remove all occurrences of Element 
it || | neiatojy yam Jb; 
IEF in Lost; --| The List element is being removed from 
Element: in ItemType --| element being removed 


)_ Ferurn base, 


—-| EFRECTS 
--| This function returns a copy of the list L which has all elements which 


--| have value Element removed. 


cm crm crm cr cr rt cre cr cr cr re a ee es es we = 


procedure DeleteItems ( --| remove all occurrences of Element 
||) fietolque Iie 
ios in-out. bast: --| The List element is being removed from 
Element: in ItemType --| element being removed 
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EFFECTS 
ines procedure removes all cccurrences of Element Erom the List L. This 


is a destructive procedure. 


mew mw ew es cr a a a es 


procedure Destroy ( --| removes the list 
BS sin Out. Lise --| the list being removed 
i 
--| Effects 
--| This returns to the heap all the storage that a list occupies. Keep in 


mind if there exists sharing between lists then this operation can leave 


dangling references. 


et 


generic 


With “procedure Dispose (1 2in out IltbemType),; 


procedure DestroyDeep ( --| Destroy a list as well as all objects which 


We 


--| comprise an element of the list. 


ier) our. L2:st 


OVERVIEW 

This procedure is used to destroy a list and all the objects contained 
tiean element of the list... For example if Lis a list of lists 

then destroy L does not destroy the lists which are elements of L. 
DestroyDeep will now destroy L and all the objects in the elements of L. 
The produce Dispose is a procedure which will destroy the objects which 
comprise an element of a list. For example if package L was a list 

of lists then Dispose for L would be the Destroy of list type package L was 


instantiated with. 


REQUIRES 

This procedure requires no sharing between elements of lists. 

Serre anple wit ly int sis alist “of Integers and L of biint isa list 

of lists of integers and two elements of L of L int have the same value 
then doing a DestroyDeep will cause an access violation to be raised. 
The best way to avoid this is not to have sharing between list elements 
er use copy funckions when adding to the list of lists. 


—_—— cr cr cr cr cr cr rr cr wr cr cr cr wr cr cr es ee we ee wee ee wee ae eee ee a ee 


function First Value ( ——|Sreturns the contents of the first record of the 
--| list 
IO as 9 uae np = --| the list whose first element is being 
=——| returned 


) return Iteml ype; 


--| Raises 
=— | Empty se 


——| Effects 
—--| This returns the Item in the first position in the List. Sif thesia. 
--| is empty EmptyList is raised. 


mr ec cr cr cr cr er ew we ce ce ce ce we we ww a a a a a ee 


procedure Forward ( --| Advances the iterator. 
[sin Otte biwselter --| The iterator. 

); 

--| OVERVIEW 


--| This procedure can be used in conjunction with Cell to iterate over a list. 


==| This ts in addition to Next.) Instead vor writing 


——| Te hes beer. 
ma a ea 
== Verbist: Element livre, 


I 
I 
[4 


--| I := MakeListIter(L); 
--| while More(I) loop 
== Next(i;> Voc; 

= [eng le aie 


—-| end loop; 


—--—| One can write 

==| 1 t= Makelistites (ie: 
--| while More (I) loop 
== Print (Celle (lL): 


-— | Forward (1); 


=——|Pwend Loop: 
function Iskmpty ( —=| Checks if a list is empty. 
in List -~~| List being checked. 


) return boolean; 


em cc crc cr crc rr rr cr cr er cr cr cr crs a a ee ee a es es 


function Isinbkist ( --| Checks if element is an element of 
-~| list. | 
3b Bi 9) List, --| list being scanned for element 
Element: in ItemType --| element being searched for 


) return boolean; 
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--} Effects 
--| Walks down the list L looking for an element whose value is Element. 


eee ee we we cs a ees ew a a we ei a i ae we nr On nnn a nnn nr nr nr nr nn nna sn as as ass es se 


function LastValue ( --| Returns the contents of the last record of 
--} the list. 
ies ain? Lise --| The list whose first element is being 
--| returned. 


)} return ItemType; 


--{| Raises 


——|-EmptyList 


--| Effects 
--| Returns the last element ina list. If the list is empty EmptyList is 


--} raised. 


ete heh ete ee ee 


function Length ( --| count the number of elements on a list 
| Ee es bp o peas Ep =) --| list whose length is being computed 


) return integer; 


fm a ae ae a ee 


function MakeList /( --| This takes in an element and returns a List. 
|r Tg @ ItemType 


eeeeiury last: 


ee ae i ee 


function MakeListIter ( --| Sets a variable to point to the head 
=—| ofr the list... This will be used to 
--| prepare for iteration over a list. 
iin bast --| The list being iterated over. 


) return ListIter; 


--| This prepares a user for iteration operation over a list. The iterater is 
--| an operation which returns successive elements of the list on successive 
--| calls to the iterator. There needs to be a mechanism which marks the 

Bet epostt1on an Che list, so on successive calls to the Next operation the 

-—| next item in the list can be returned. This is the tinct 1 on or the 
SeeleMakeListiter and the type Listiter. MakelIter just sets the Iter to the 
paueene beginning), ct the» List. On subsequent calls to Next the Iter 

= )-ls updated (with each call. 


—— es a rc re wr wr ee ewe ee a 
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function More ( --| Returns true if there are more elements in 
--| the and false if there aren't any more 
--| the in the list. 
L: in ListIter —-—-| List being checked for elenents: 


) return boolean; 


procedure Next ( --| This is the iterator operation. Given 
--| a ListIter in the list it returns the 
—--| current item and updates the Listltem 
--| If ListIter is at the end of the lier 
--—| More returns false otherwise it 


=—-—| returns true. 


Place: in out ListIter; --| The Iter which marks the position in 
=—| the “frsc. 
Info: out ItemType --| The element being returned. 


--| The iterators subprograms MakeListIter, More, and Next should be used 
--| in the following way: 


==) L: Last = 

S| Place: EEest lteter: 

--| Into: someType; 

--| 

==} 

——| Place := MakeListIter(L); 
--| 

— while ( More(Place) ) loop 


--| Next (Place, Info); 


== | process each element of list L; 


——| end oop; 
procedure ReplaceHead ( --| Replace the Item at the head of the list 
--| with the parameter Item. 
i: in) cute bist; --| The list being modified. 
into. n ItemType --| The information being entered. 
i 
--| Raises 
== |) EMpeyirse 
=— | eitteces 
--| Replaces the information in the first element in the list. Raises 


—--| Bmptybist if the list is empty. 


—— cc mc wr cr cr cm cr cm cr cr ec ww we we ce we ee ce ww ec ww ce se 
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procedure ReplaceTail ( --| Replace the Tail of a list 
--]|] with a new list. 
L: Tn oOuc. ULsSes --| List whose Tail is replaced. 
NewTail: in Last --| The list which will become the 
--| tail of Oldlist. 


--| Raises 


-—-|- EmptyList 


--| Effects 
--| Replaces the tail of a list with a new list. If the list whose tail 


--~| is being replaced is null EmptyList is raised. 


mmm ns ww ww ws ww ws ww ww we ee ws we es 


fumectlon Tail ( --| returns the tail of a list L 
ie? tan bs =—| the list whose tail is being returned 


Pore turn List; 


--| Raises 


-—-|) empty Laist 


--| Effects 

paieeetirins <a ‘list which 1s the tail of the list L. Rarses EmptyList if 
--| Lis empty. If L only has one element then Tail returns the Empty 
=—=—| list. 


re eae ae ia ee ee 


function CellValue (--|] Return the value of the element where the iterator is 
= pOSloLOned. 
i Sen ListIter 

) return ItemType; 


=), OVERVIEW 
--| This returns the value of the element at the position of the iterator. 


 -|ethis is used in conjunction with Forward. 


mm mr rr cw rr ees ie 


tunceion Equal ( =—|' compares Listl and list2 for equality 
Lesh l in Lise: == ly Mee Site rad Se 
List2: in List ==] second. list 


) return boolean; 


--| Effects 
—-~| Returns true if for all elements of Listl the corresponding element 
--| of List2 has the same value. This function uses the Equal operation 


=--| provided by the user. If one is not provided then = is used. 


289 


private 


type Cell; 
type List is access: Cell; --| pointer added by this package 
--| in order to make a list 
type Cell is --| Cell for the lists being created 
record 


Info: ItemType; 
Next: List: 


end record; 
type ListIter is new List; --| This prevents Lists being assigned to 
--| iterators and vice versa 


end Lists; 


—_me* © © © © © © © © © © © © & 8 
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with unchecked deallocation; 
package body Lists is 


procedure Free is new unchecked deallocation (Cell, List), 


_——— me mw we cr cm wr cr cr cr cr wr cr cr es ae eae ee ae ee 


Funct ren “act she. an List) .eturn laste as 
Place Jnl: ius, 
Temp Placev ings: List; 


--| Link down the list L and return the pointer to the last element 
--| of L. If Lis null raise the EmptyList exception. 


begin 
io nev then 
raise EmptyList; 


else 


--{ Link down L saving the pointer to the previous element in 


71210) 


=|" lemper baccoin i. (ftterm the last i1cerdtion Temp: Place in aL 
--| points to the last element in the list. 


Placen net, Shy 

while Place _In_L /= null loop 
Temp Place In L := Place In IL; 
Place In L :— Place in _L.Next; 

end loop; 

return Temp Place In _L; 

end af; 
end Last; 


emcee cee cece ce cs cr cr cw cr we cr cr crs a ww ww ww we ee ae i 


Procedure Attach? (Listl: in out List; 
bacee? tei th List) is 
EnaCtListl=> List; 


--{ Attach List2 to Listl. 

Setgtt hist ls null return List2 

——| If Dist] equals Listz2 then raise Cireularbist 

--| Otherwise get the pointer to the last element of Listl and change 
-—=|\ tes Next. [reid to be. ListZ. 


begin 
if Listl = null then 
histl” := List2; 


recur: 
elsif Listl = List2 then 


ralse Circular st; 


else 
EnaOLLVstl-:=~Last>  (Listl)-: 
Bnadothbast) z.Next.-:=..List2: 
end if; 


end Attach; 


em a a re ec es ee ee ee ee ee ee ee eee ee ee 


procedure Attach (L: iy Guc baste; 
Element: in ItemType ) is 
NewEnd: Gist: 


--| Create a list containing Element and attach it to the end of L 


begin 
NewEnd := new Cell' (Info => Element, Next => null); 
Attach (L, NewEnd); 

end; 


29) 
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function Attach (hlemenel: in ItemType; 
Element2: in ItemType ) return List is 
NewList: List; 


--| Create a new list containing the information in Elementl and 
--| attach Element2 to that list. 


begin 
NewList := new Cell' (Info => Elementl, Next => null); 
Attach (NewList, Element2); 


return NewList; 


end; 
procedure Attach (Element: in ItemType; 
Ise in.ecue bis aes 
--| Create a new cell whose information is Element and whose Next 
--| field is the list L. This prepends Element to the List L. 
begin 
L := new Cell' (Info => Element, Next => L); 
end; 
funcki6en Attach (chLwer be sin ist 
ws ean List ) return List is 


base, Of List! brs: ; 


begin 
If Lasei- = null then 
returns lista: 
elsif Listl = List2 then 
raise Circularhist: 
else 
Last. Of Listl += Last (Listl); 
bast Of ast) Next = busta, 
return Listl; 
end -127 
end Attach; 


function Attach ( iL: B59] List 
Element: in ItemType ) return List is 


gk 


NewEnd: List; 
hast Of i: List, 


-~| Create a list called NewEnd and attach it to the end of L. 
--| If L is null return NewEnd 

--| Otherwise get the last element in L and make its Next field 
--| NewEnd. 


begin 
NewEnd := new Cell' (Info => Element, Next => null); 
if L = null then 
return NewEnd; 
else 
Past, Or Ll s= hase (bh); 
Last Of L.Next := NewEnd, 
return L; 
end if; 
end Attach; 


function Attach (Element: in ItemType; 
1 2n List )} return List is 


begin 
return (new Cell' (Info => Element, Next => L)); 
end Attach; 


ee ee ee | 


miner won Copy (Ll: “an LLst)) return Last. 2s 


—-—-| If Lis null return null 

=i) OLRCEW1ISS, Trecursively copy the list by first copying the information 
—--| at the head of the list and then making the Next field point to 
Sold copy OL the tail of the. lise. 


begin 
if L = null then 

Feturn nuli; 
else 

Berurn new Celi (into => L.into, Next => Copy (L.Next)}; 
end if; 


end Copy; 


—_—eiw ess a ees ese ee see en aaa er a es wn wm ce cr wr we cr re cr cw ee ee ee ee ee ee 


function CopyDeep (L: in List) return Last is 


to 
\O 
ase) 


Tf Lo is null “chen, seturn, nue. 
Otherwise copy the first element of the list into the head of the 


new list and copy the tail of the list recursively using CopyDeep. 


begin 


if L = null then 


return null; 


else 


return new Cell'( Info => Copy (L.Info), Next => CopyDeep(L.Next) ); 


end. a8; 


end CopyDeep; 


cr cr cr cr ee es mr crs cr cr cr a cr cm cm cm cr ce cr a ee 


fuNncELELon Create Lreturn haste. 1s 


Return the empty list. 


begin 


returhneana ll, 


end Create; 


em cr cre cr cr cr cr cr cr cr cr cr cr cr cr cre er cr cr cr cr cr cr rs cr rs er crs rr cr er cr ee i ee 


procedure DeleteHead (L: in out List) is 


TempList: List; 


Remove the element of the head of the list and return it to the heap. 


Tf i 2s null Empeyviase. 
Otherwise save the Next 


element and then assign 


begin 


if L = null then 
raise EmptyList; 


else 
TempList := L.Next; 
Free (L); 
L := TempList; 

ena ie 


end DeleteHead; 


field of the first element, remove the first 
to L the Next field of the first element. 


—_——— me ecw er rt cc cre cr a cr cr cr me cr cr cr ew we ww we ae ie 


function DeletelItem ( 


) 


ie 


E 


ag bist; 
lement: in ItemType 


return Last. wes 


iE 


“aLSt 


Result ist. 


--—| remove the first occurrence of Element 
--| from L 
--| list element is being removed from. 


—--| element being removed 
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Found :boolean := false; 


begin 
=—| ALGORITHM 
--| Attach all elements of L to Result except the first element in L 
—--| whose value is Element. If the current element pointed to by I 
—--| is not equal to element or the element being skipped was found 
--| then attach the current element to Result. 
f= 


while (I /= null) loop 
if (not Equal (I1<Infio, Element)) or (Found) then 
Retacn (Result, clheintoe);: 
else 
Found := true; 
end if; 
I s= 1.Next; 
end loop; 
Becurn Kesult; 
end DeleteItem; 


ee cee mw er mm mr ee ee ee a 


function DeleteItems ( —--| remove all occurrences of Element 
=| from. IL. 
Ibs in ts tes --| The List element is being removed from 
Element: in ItemType --| element being removed 


eereturn List is 


mG “Est: 

Result Pst 
begin 

--| ALGORITHM 


--| Walk over the list L and if the current element does not equal 
—--| Element then attach it to the list to be returned. 


L s= L; 
while I /= null loop 
if not Egqual (I.Info, Element) then 
AtLecach> (Resuity:-1. Into). 


end if; 
I := I.Next; 
end loop; 


return Result; 


end DeletelItems; 


_——— 3 ee eee ee ne mr rm tt we ee wm re mm ee we ee eee ee ee a eee ie a ee a 


procedure DeleteItem (L: Inezcuc last: 


Element: in ItemType ) is 


Tfenp. or Slist,; 


jes 


—-—| Remove the first element in the list with the value Element. 
--| If the first element of the list is equal to element then 


—--| remove it. Otherwise, recurse on the tail of the list. 


begin 
if Equal(L.Info, Element) then 
DeleteHead(L); 
else 
DeleteItem(L.Next, Element) ; 
end 12f; 
end DeletelItem; 


me me me mm cme cr crc cr cr cr i cw cr cr cr ce cr ce ce cc cr cr cr cc ce ce mc ce ce ce ce ce ee ee ee ee ee ee ee oe 


procedure DeleteItems (L: in eut, Lasse: 
Element: in ItemType ) is 
Place win ios, Sal eCUrPrent. places nearer 
Bast. Place (in (hae: bask, =—| Last place win. 
Tenpee Gace s ing ios. base, --| Holds a place in L to be removed. 


--| Walk over the list removing all elements with the value Element. 


begin 
Piace sine lb: eb, 
Past (Place inti: null, 


whale (Place invb /— null loop 
--| Found an element equal to Element 
at BQualthilace In b.into, sbtement) chen 
=-| If Last Place In Il is null then wevare augelrse fevers 


=) sii 15 
if] basteP lace iri eg) ale loge iets 
Temp Place In & :— Pilaceiin bk, 
L += Place In L.Next; 
else 
Temp: Place. IinUhys =sP lace sins, 
—--{| Relink the list Last's Next gets Place's Next 
Last Place In L.Next := Place In L.Next; 
end if; 


==| Move Place In L to the next (poste veneen = newest 
--| Free the element. 
--| Do not update the last element in the list it remains the 


——| same. 


Place Ing :— Place (in vietext, 
Pree (lenp Place lig, 
else 


--| Update the last place in L and the place anv. 


ZG 


Laster lace in divi Place inet; 
Placesini bh) -= Frlace inet. Next, 
end: if; 


end loop; 


--| If we have not found an element raise an exception. 


end DeletelItems; 


mr ee re ae ae ie ia es 


Procedure Destroy (l2 im out bist) as 


Elace In Gs) phi st; 
HoldPlace:;: ist 


--| Walk down the list removing all the elements and set the list to 
==| the empty list. 


begin 

Place in i :— i; 

while Place In L /= null loop 
HoldPlace --— Place in ih; 
Placesin l- = Place in i.Next,; 
Free (HoldPlace); 

end loop; 

NC ees oil 


end Destroy; 


procedure DestroyDeep (L: in out List) is 


Place in i List; 
HoldPlace: ast; 


--| Walk down the list removing all the elements and set the list to 
= the empty list. 


begin 
Place In lL i= Lb; 
while Place In_L /= null loop 
HoldPilace =, — Place: In. t; 
Place In lb <= Place In_L.Next; 


Dispose (HoldPlace.iIntoe):; 
Free (HoldPlace); 
end loop; 
i SS" nus 
end DestroyDeep; 


20F 


function FirstValue (L: in List) return ItemType is 
--—| Return the first value in the list. 


begin 
LE Le = nulieenen 
raise EmptylList; 
else 
return (LL. Iinto); 
end if; 


end FirstValue; 


emcee cre mr cr mr rr rr re cr rr wr rr rt cr tr rm cr rm rm ee ee a we 


procedure Forward (1: in Cueeliceltc: ). 26 


--|] Return the pointer to the next member of the list. 


begin 
Lf. T= nulls then 
raise NoMore; 
else 
lL 3] bistiter (1. Next); 
end if; 


end Forward; 


mm cm ee ee ee re we re rr wr cr rr rr rc cr ee ee ee ee ee ee 


Funct Lon 1 sins eee on ba sts 


Element: in ItemType ) return boolean is 


PlacelinJsb; base, 


--] Check if Element is in L. If it is return true otherwise return false. 
begin 
Place sine — 7c; 


while Place In L /= null loop 
if Equal(Place In L.Info, Element) then 
return Erue,; 
end if; 
Place In ie. -— Place pingl. Nex: 
end loop; 
return false; 
end Isinbist-; 


em rr a wr wr re wr wr wr wr re er i i 


function.) lstmpty ei l-ssin Eise)s2etrurn boolean 7s 
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--| is the bist & empty. 
begin 


rerurn (Lb = null); 
end. Istmpty,; 


ee 


function LastValue (L: in List) return ItemType is 


LastElement: List; 


--| Return the value of the last element of the list. Get the pointer 


--| to the last element of L and then return its information. 





begin 
LastHElement := Last (L); 
return LastElement.Info; 
end LastValue; 


SS ee ee ee 


EunCcEloOn Length (lb: an List) return integer is 


--| Recursively compute the length of L. The length of a list is 
Seileoelteit ts null or “1 + they length of the tail. 


ee = nul) chen 
Bet UEn. CON: 
/ else 
return (1 + Length (Tail. (i) )); 
end if; 


end Length; 


om rr ra cr ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee Ce 


function MakeList /( 
as te 2 ItemType 


Peerecurn Gist 1s 


begin 
recurn new Cell.” (Inte => E, Next => null); 
end; 
function MakeListiter (LL: in iich |. return: Listpiter~is 
—-| Start an iteration operation on the list L. Do a type conversion 


——| ron. -orse £o Listiter. 


200 


begin 
return List iter 15); 
end MakeListIter; 


me es ee ee es ee ee cm em as re re ee ce cr cr crs cr cr ce ce cp wee cc ce cn ee we 


EFUnEeE TON More Gib.) in ListIter) return boolean is 


--| This is a test to see whether an iteration is complete. 


begin 

return cl /= null; 
end; 
procedure Next (Place: in Out  lseilter, 

ll nares out ItemType ) is 

PlaceInList: List; 
--| This procedure gets the information at the current place in the List 
--| and moves the ListIter to the next postion in the list. 
--}| If we are at the end of a list then exception NoMore is raised. 
begin 


if Place = null then 


raise NoMore; 


else 
PlaceInList := List(Place) ; 
Info := PlaceInList.Info; 
Place := ListIter(PlaceInList.Next); 
end if; 
end Next; 
procedure ReplaceHead (L: an Out OSE, 


inte: in ItemType ) is 


--| This procedure replaces the information at the head of a list 
--| with the given information. If the list is empty the exception 
—--| EmptyList is raised. 


begin 
if L = null then 
raise EmptyList; 
else 
lu Into. 2= sinto; 
end if; 
end ReplaceHead; 
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qm ee wc wm rr er ww ee ie ee 


procedure ReplaceTail (L: Ln Cub, bist; 
NewTail: in lio ae ae Fe: 


Temp L: List; 


--| This destroys the tail of a list and replaces the tail with 
--| NewTail. If L is empty EmptyList is raised. 


begin 
Destroy (L.Next); 
L.Next := NewTail; 
exception 


when Constraint error = 
raise EmptylList; 
end ReplaceTail; 


mc ew cr ew ww ew me a i ei ee 


PuMeCk Lon, Laal (i in List) return List is 


--| This returns the list which is the tail of L. fis aig aes Be g (8 al al 
-—| EmptyList is raised: 


begin 
if L = null then 

raise EmptyList; 
else 

return L.Next; 
end if; 

end Tail; 


function CellValue ( 
ion La seiltver 

) return ItemType is 

ee aS Co 
begin 

==~Convert Il to a List type and then return the value it) points to. 

L s= List (1); 

fee et Ne. lsat oO; 
end CellValue; 


Ponce ion Boval., (List le in sites: 


ListZy in List ) return boolean is 
PlacelInbistl<: List; 


Placelniist2:; Let: 
Contentsl: ItemType; 
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Contents: ItemType; 


This function tests to see if two lists are equal. Two lists 
are equal if for all the elements of Listl the corresponding 
element of List2 has the same value. Thus if the lst elements 
are equal and the second elements are equal and so up ton. 
Thus a necessary condition for two lists to be equal is that 


they have the same number of elements. 


This function walks over the two list and checks that the 
corresponding elements are equal. As soon as we reach 

the end of a list (PlaceInList = null) we fall out of the loop. 

If both PlaceInListl and PlaceInList2 are null after exiting the loop 
then the lists are equal. If they both are not null the lists aren't 
equal. Note that equality on elements is based on a user supplied 


function Egqual which is used to test for item equality. 


begin 
PlaceInListis:= Lastl-: 
PlaceInList2 := List2; 


while (PlaceInListl /= null) and (PlaceInList2 /= null) loop 
if not Equal (PlaceInListl].iInto, PlaceInbist2~7intio) then 


return false; 


end if; 
PlaceInListl := PlaceInListl.Next; 
PlaceInList2 := PlaceInList2.Next; 
end loop; 
return ((PlaceInListl = null) and (PlaceInList2 = null) ); 
end Equal; 
Lists; 


rm a cr ee ie a ee es 


APPENDIX Q. UTILITY PACKAGES 


-- $Source: /tmp_mnt/n/gemini/work/bayram/AYACC/parser/RCS/lookahead_s.a,v §$ 
=—— sate: 1991/08/25 01:39:48 $ 

——soReVision: l.1 $ 

-- S$Log: lookahead s.a,v $ 

j—-oRevision 1,1 1991/08/25 01:39:48 bayram 

—— initial revision 


with Io Exceptions; 

with Text _I0; 

use Text 10; 

package Lookahead Pkg is 
function Peek 

return CHARACTER; 
peecedure Get Char 
(eitem + cout CHARACTER }); 

procedure Skip Char; 


End Error : exception 
renames ilo Exceptions. End Error; 
-- Attempt to read past end of file. 


end Lookahead Pkg; 


-- $Source: /tmp_mnt/n/gemini/work/bayram/AYACC/parser/RCS/lookahead b.a,v § 
== SDate:> 1991/08/25 01:42:22 § 

——ooRevision: 1.1/5 

--— $Llog: lookahead b.a,v § 

eeetevistonil.l “L991/08/25 01:42:22. bayram 

-- Initial revision 


package body Lookahead Pkg is 
Burter 
CHARACTER; 


Empty 
BOOLEAN := TRUE; 
--“\-empty => butter is the next character in the stream). 


function Peek 
return CHARACTER is 
begin -- Peek 
if Empty then 
Get (Buffer); 
Empty := False; 
end it; 
return Butter; 
end Peek; 


Procedure Gecwechar 


( Item out CHARACTER ) is 
begin s=eCetecha. 
if Empty then 
Get (Item) ; 
else 
Item := Buffer; 
Empty := TRUE; 
end walt. 


end -Getbschar, 


Procedure Siti pee areis 
beginva> Sitio eenar 
if Empty then 
Get (Buffer) ; 
else 


_— 


Empty TRUE; 
end if; 
end Skip Char; 


end Lockahead Pkg; 


-~ Read and discard next character. 


-- Discard character in the buffer. 


-— $Source: /tmp_mnt/n/gemini/work/bayram/AYACC/parser/psdl_ada.lib/RCS/ 


delimiter.a,v $ 

SDabe: -1991/0G/25 017355265 
-- $Revision: 1.1 $ 

-- $Log: delimiter.a,v $ 
1991/08/25 
initral ~evrsien 


—= Revisronniaa! Ol: 3522389) bayram 


package Delimiter Pkg 1s 
type DERIMITERVARRAY 1s 
array (CHARACTER) 
of BOOLEAN; 


£uneticon initialive VDelamiberrer ray 
return DEL TMT URE ARR, 
end Delimiter Pkg; 


package body Delimiter Pkg is 
function Initialize Delimiter Array 
return DELIMITER ARRAY is 
begin —~ initialize DelimiterjgArray 
(SoS okiee aaa oI 
eng) Initialize Delimiter Array, 


return ASCii.Cr- |-Aser: 


end Delimiter (Pag, 


304 


Li => TRUE, 


others => False); 


APPENDIX R. PACKAGE PSDL_LEX 


-- A lexical scanner generated by aflex 

Wit slext 10; use Cext 10; 

Weepepedl lex dia, use psdl lex dia, 

With psd] lex io; use psdl lex io; 

eetetane 1. “psdl  bex.1” 

~~ $Source: /n/gemini/work/bayram/AYACC/parser/RCS/psdl lex.l,v §$ 
== oVatce: 1991/09/08 07:08:33 § 

-- $Revision: 1.12 §$ 


with psdl tokens, a_strings, psdl_ concrete type pkg; 
use psdl_ tokens, a_strings, psdl_ concrete type pkg; 
Hse Lex 10; 


package psdl lex is 


lines Sposirive.;=— "1; 
num errors = natural := 0; 
Peers Pile. seext /lJo.fileutype; 


-- in the case that one id comes right after another id 
—-— we save the previous one to get around the problem 
-- that look ahead token is saved into yytext 

=>) nis problem ocecurs in the optional generic param if 
-- an optinal type declaration comes after that. 


So LT DENTIFPIER 
Eniewprey id token: psdloid s= psdl id(a strings.empty) ; 
Ene id Coken . psd laid s= psdl_ id(a_ strings.empty) ; 


gmeo (RENG LITERAL 
the) String token = expression := expression(a strings.empty) ; 


aoe Vt ECER GITERAL (psdl oid or expression) 
Poervinctceger Coken: a string ;= a strings.empty; 


eee web LITERAL 
Ene real token : expression := expression(a strings.empty) ; 


aoe oo. TOKEN 
eros cext token Cee xt 


tl 


eMmpey text; 
last_yylength: integer; 


procedure linenum; 
procedure myecho; 


function yylex return token; 


end psdl lex; 


package body psdl_ lex is 
procedure myecho is 


begin 
text 10.put(list File, (psdl) lextdtesyyeexe 
end myecho; 


procedure linenum is 
begin 
EExt 16. put{ List sh vie er nteger Amage Paes) mas 


ae: 


lines := lines + 1; 


end linenum; 


function YYLex return Token is 
subtype short is integer range —32768...32767,; 
integer; 


yy_act 
YYoo 


—-- returned upon end-of-file 


YY END TOK 


short: 


constant integer 


YY END OF WBUPFER 
SubGype yY SEabege ype sei neegqer, 


constant 


:= 0; 


hele 


VY SCuLbrenes Seave Vy ostebeubype, 

INITIAL constant := QO; 

yy accept Constant array (C2.619) of Short. :— 

( 0, 
0, 0, Bo, 84, ec; 82; 84, 59; 60, 
Da 5D; 65, 56, 66, 58, q9, 64, 69, 
68, Ii, q7, CF; Ua; 0G vir Tide 17, 
ioe Wt Ha 07) a oo, 15 Aa; ls; 
i, TP Gay, os, ag, oa, a7; a, alae 
ie I Gale nae, ae a2; Tea ty Joe 
COIS Ta; cae, ae 84, G7, 84, OF Wsin 
2, Do, See 0, 12; Da 50, 505 175 
Ta; 19, aoe, i, 17, a, ia, TT, oa, 
Ii, 1a; Lae dy Tay a7, 20, Ad, Ty 
A fa eis 1g 3S, or a 48, Das Ts 
ay Td, are eetcy 1% I Cr, eae fie 
17, Tiles DPE cave Las a a7; cee a, 
dale Gus a, aig GP ibs 14; NOTE Lah TT, 
77, a, Se; Lope ay V7, ne, aa a7, 
na Te Tu, Gan, Ail a7, 0, 81, 80, 
Aly 47, Gi ee Go; ee c-; a, Bi alk, 

dd, Reo Zz, ao, a7, das, ie y wl, TT, 
(is 1a, ie. IU 5 dy 32; IAGe 74, oie 
aa, 71, el, Se, ae Gai a a V7; 
Lh, qq; aa cay 49, oo; oF a7, aha 
Lo, ia; cae tay Duh Ca vas Hdl a Ti, 
i a7, ete, vg Lily aa 32, aa oa, 
aa, Say aa; Top Gal 1a ede, ay ag 
Lay Pa, Wale 0, oy Oy fhe Wale Ta 
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yy ec 


Libs A ly 
war aos 
Cae fas 
ale Be 
(ne eet gr 
Tae Tle; 
fae co. 
215 a4, 
Da. 1a 
PTS 23; 
bode Td, 
tidy Lager 
iar a 
ra. a; 
cig Pa 
OF Uta 
Ta ae 
OF re 
16; 0, 
(ae oe, 
TG diy 
GS; qe 
AAG SO, 
Teles OF 
iat ar eae a 
OF me 
34, Oy 
Gale, Ad dy 
LaF Day 
qT, Lay 
ay LA; 
OF aa 
42, DO; 
0, 0, 
40, 0; 
29, (ae 
O, O, 
constant 
0, 
1, 1, 
1, 1, 
1, 1, 
1 2, 
7, 8, 
14, Lay 
dle ia 18, 
eon 26, 
Soy 36, 
44, 45, 


array (CHARACTER & TKS? ...CHARACTER’ LAST) 


gee 


ig 


TT, 
a1, 


11, 
ay, 
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OL 


Syl DZ, oo 94, Dol, 28, 56, 
60, 61, 62, 63, 64, 65, 66, 


vo, 237 aly T2y 13% 74, al 
ig 
yy_meta : constant array (02, 74) \6feshort.. — 

( 0, 
i iy ie AP i i, ly 
1 ly ie ihe ale 1G al 
2 2; a; 2. 24 25 2a 
2, Ze Pap 2, 25 Za 2; 
2; Za 2, dling i I Z, 
25 2; 2; Ze OMe Ze 2 
ae ZG Z; 2; Ze 2, Ze 
ay lie i di 


yy_base : constant array(0..622) of short := 


0, Of F725. F26m— F326, 726 Fil, 
F16,;5 126,0°926, TOS 6, 705, 64, 
703, 57, 676, 61, 62, 60, 64, 

0, 694, Tl, “OC ae 67, 692, 691, 
685, 678, 726, 726, 69, 640, bas 

62, 649, 74, 657, 87, 647, 78, 
85, 653, 648, 642, 628, 726, 683, 
126,.726,. 126, 6857-130) su comma ioc 
674, 668, 647, 84, 663, 660, 653, 
133, 657, 654, 653, 665, 644, 0, 


638, 136, 657, 0, 640, 654, 0, 
653, 650, 127, “64> 1328 “e275 3654. 
619, 615, 609, 159, 606, 603, 596, 
123, 600, 597, 596, 607, 587, 591, 
124, 599, 583, 596, 581, 582, 118, 
584, 123, 580, 577, 574, 575, 564, 


re O,- 602,. 177, _ 604, 14c,.neLd 
607, 608, 0, 591, 600, 603, 591, 
582, 579, 592, 582, 587, 160, a 
587, 0, 168, 580, 591, 156, 577, 
584, 583, 567, 578, GO -1543, 195; 


551, 548, 547, 548, 532, 540, 543, 
525, 523, 520, 532, 523, 528, 140, 
154, 521, 531, 144, 518, 527, 526, 
508, 518, 540, 540, 546, 535, 540, 
528, 0, 529, 523, 538, 523, 523, 
528, 516, 9520, 5219516, 6 5es,0 Sic, 
512, 506, 510, 510, 514, 502, 516, 
511, 0, Os 512,500. a4 See da Se 
463, 464, 463. 464, (458, “472 d5ce 


467, 462, 451, 455, 456, 453, 457, 
442, 447, 441, 445, 445, 448, 437, 
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57, 
6a 


= = 


= 


= 


= 


MM MN NF KF 


= 


68, 


126s 
704, 
685, 
78, 
68, 
654, 
726, 
661, 
664, 
ie) =) 


639, 
632, 
606, 
581, 
592, 
622, 
608, 
593, 
580, 
586, 


136, 
529, 
522, 
524, 
529, 
520, 
528, 
519, 
AL On 
466, 


445, 
208, 


59, 
69, 


“= = 


= 


= 


= 


NM NM MB NON ND FP 


“= 


449, 448, OG, 2459, 4157, 0, Get be 
A458 4a 440, aot 4ee 7 453,0 437, 4e6, 
AA “449% S446 =216-5 132, — 2185 437, 0, 


Podees GHo5) 3e5 6366. 375; i. 726, 394. 
Sides 299-5 394, 400, 399, Oo, 4047 401. 
200 Sot eGo ESOT. «290, 263. 0, ‘ae 
377, 1386, 226, 0, 385, Cy S75. ae 


Cer sOt, m2 cS. 289: @264, 0, 301, 0, 
S00 OTS ee eoo.) O7e, OG, -262,. 26, 46, 
Delton 41S 24,9 235, 245. Goa, 426o, 
258, GmRoSOr) 255. 264, 249) 2595. 247. 
DUS CTG OZ On bl 227, 226, 212, O19; 
Decl 0, GO. 240%. 235i, 280, F265 Mose: 


array (0..622) Of Short = 


619, 619, 619, 619, 620, 619, 619, 619, 
619, 619, 619, 619, 619, 619, 619, 619, 
Soi, Goll, beeie Gel €2le- 22 C275 <6eT, 
G@2l7/ 62il¢e “Glls “G2i;. “elle, seed, “ee 621. 
Blom (619, G2’ 62i- “eel, Ged. “aed. 3621. 
ei esos neeae 620 Gee, Uncen cect. meet 
621" “621, i622, 62S, G19, “620, “619.4 619, 
elo, 8619, 68S, 619. Gig. “Gall “Ger. Gon, 
G21, ' 62, 62; “Goi. S621. a7. “aoa, » 621. 
G2ipmeeGol, 62%, 621, 621, 621, ‘6295 624, 


CZ GIG ZI S621. 2691, 621s Neri ~Go7. 
GG yeolls. “6215 d6eu, “6205. “62a, A6o1s 
Cole o2a nol ly. “SOU S6od, “6242.65 «621. 
COI CC I EGll: GO, 2620, deols s62i%. “G21, 
CZ Ge eGo lpmeeGll,. 621, seek 621. fe2l, 
62 2621. 5621, 9 G21, 622, 61S, “Gi9ps 621, 
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Gel, Gide, 
oc, 6217 
621, oz, 
SZ, 6215, 
G21, G21 
62, 621, 
621, 621-, 
GzZiy, oz2iy 
oz 1, 6215 
621; 621, 
G215 621, 
GZ, 6215 
621, eal 
OZ, 62, 
62k, 6217 
G21), 6215 
621, Gay, 
62 i, 621; 
62 i; GZ. 
G21, Se4 al 
621; 62, 
621, 621, 
G21, 621, 
621, 621, 
ote, 62a, 
oz, oZly 
Gino, S21, 
621, sles) 
621, 621, 
GZ, 62, 
G2, 621, 
Gz, GZ; 
621, Glace 
62l, OZ, 
ol2, 6215 
G21, Slo, 
GZ2u, OZ 
oie, 662i, 
6Z1., 621, 
621), 6213 
G19, 6219 
63 Gleee 
Silo, 61S. 
Silke, Gilor 
621, 6210 
Sle, 6g, 
Gi, 619 
ay 
yy _ nxt 


621, 
621, 
621, 
Sci, 


621, 
62, 
621, 
G24, 
621i, 
621, 
621, 
62, 
G21; 
621, 


621, 
621: 
ave 
621, 
6246 
eon 
621, 
621, 
62e 
619, 


621, 
6215 
621, 
619, 
o2i, 
621, 
621, 
sil 
621, 
621, 


621, 
621; 
621, 
619, 
619, 
621, 
621, 
6g, 
61g; 
Cig, 


621, 


619, 
621, 
621, 
621, 


621, 
621, 
621) 
621; 
619, 
E29 
621, 
621 
621, 
eal 


E25 
621, 
621, 
eo 
Gear 
621, 
621, 
e216 
621° 
621, 


621, 
620 
62, 
62 i 
621. 
619, 
621, 
rien 
621, 
619, 


621), 
621, 
62 
619, 
621, 
621, 
621, 
621, 
621, 
6215, 


619, 
619, 


621, 
621, 
oad, 
621, 


621, 
621, 
621, 
G2, 
619, 
621, 
621, 
621, 
621, 
621, 


621, 
621, 
621, 
aoe 
e2ay 
620, 
619, 
Goa 
621, 
62uy 


621, 
621, 
617, 
621, 
621, 
619; 
621, 
619, 
621, 
624, 


621, 
619, 
621, 
621, 
619, 
6217 
621, 
621, 
621), 
621, 


621, 
619, 


constant array(0..800) of 


621, 
a2 1 
621, 
621, 


621, 
621, 
621, 
62; 
61:9; 
621, 
OZ, 
621, 
6217 
621, 


621, 
621, 
619, 
621, 
621, 
621, 
619, 
621, 
eon 
621, 


621, 
621, 
621, 
621, 
621, 
621, 
621, 
621, 
621, 
621, 


621, 
619, 
625 
621, 
619, 
619, 
E20 
621. 
S2u9 
621, 


621; 
621, 


short 
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621, 
G21, 
621, 
621, 


e217 
621, 
6217 
GZa7 
621, 
624, 
621, 
621, 
619; 
621, 


621, 
621) 
619, 
621, 
621, 
619, 
621, 
621, 
621, 
621, 


621, 
621, 
621, 
C2, 
621, 
619, 
621, 
621, 
621, 
Ci, 


621, 
619, 
61g, 
621, 
Gig, 
619, 
6197 
621, 
621, 
Gio, 


is Jes 


6217 
621, 
62ii, 
621, 


621, 
621, 
621, 
621, 
621, 
621, 
621, 
621, 
6217 
6c 


621, 
G2 
621, 
6Ze 
621, 
6215 
621, 
E21, 
621, 
619, 


S21, 
621, 
621, 
C27 
61.0, 
621, 
6215 
619, 
621) 
Cio, 


621, 
621, 
612, 
o2i; 
G2ie 
619, 
Gio, 
621, 
6217 
621, 


621, 
619, 


4, 5, a. 7 8, 9, ce Vi: ro) 13, 
14, Ls, 16, see ee 1eoP 205 21. ee ee 
24, 25. 26; 2. 28, 29, 2G: 31, 32, 31, 
33, 34, 35, 36, cue a) 38, 39, cae 40, 
Ages 42, ele oe 4, 44, 45, 46, lee 48, 
49, 50, 51, 52, 53, 54, 31, 55, 56, cae 
58, cue 59, 60, 61, a1 62, 63, 64, a 
65, 66, ie aT, 69, Tae 79, 75, 80, 85, 
87, 89, 92, 94, Go. tet 164, 97, Si AO 
93, 90, ee 86, 98, 99, 95, 102, Satie 


106, SiemetOv me lOss| lia Toe, 83, 104, 125, 618, 
ila ee SG loa wel 15. 4 11s, TO ei 20 a slaGe iol ior 
iio ese 6 oe Ie Ss, 5 a ec 10) a oe 68, 618, 
ioe cs lec, Wilde, 080, 23150 123," -aa4n 151) 
fog weet loimea45s 945 19%, 140) 152,150; 74, 
104, oe [CPA ioc, Siro. “bed. “ase, “200, soo: 
Coc Ogre toe mel Oss 66. WSS, GA7s> 5166,.° 221, 68, 
DOME reo ol4 220, FIGS, 234, 236,164, 16d, 
POC ae o27 ics meots, “249, 267; G615,".239, 235, 
Die Cee osc eC Tess, 244, 207, 207,266, 297%; 


oe TG SSS, Bois, 300. S17. Gig ° 318, 393, 
POeveerGl oo 45 oO dG,, G14, -401, “42. 9495). 425. 358. 
Bbc e450 05450-0454. 254,4°393, “363, “421° 421. 2425: 
425, 450, 450, 454, 454, 501, 501, 519, 519, 501, 
SO coc icreco- WiclS. wold. “GTO, “61s, 612. “4115 
610, 609, 608, 607, 606, 427, 104, 268, 269, 601, 
605.9604 160s, 9475, G02... 479. 104. 60a. 00. 59s, 
598, 534, 591, 597, 589, 596, 595, 594, 585, 584, 
593, 592, 591, 590, 589, 588, 587, 586, 455, 585, 
584, 583, 582, 571, 494, 581, 497, 580, 579, 578, 


577, 549, 68, 68, 68, 157, 157, 576, 564, 575, 
574, 573, 572, 571, #570, 569, 568, 567, 566, 565, 
564, 563, 562, 561, 560, 547, 559, 558, 557, 556, 
555, 554, 540, 553, 538, 552, 551, 550, 548, 547, 
546, 545, 544, 543, 542, 541, 540, 539, 538, 537, 
Bse@7535, S23, 5232, ‘531, 530, 529, 513, .-528,° ~511, 
Bog, 526, §508,. 525, 524, 523). 522, 521; °520. 518, 
Slgjaol6,. 515, 54, “Sis, 512. -S11, 510,509, 508, 
507, 506, 505, 504, 503, 502, 500, 499, 498, 496, 
Migp 495, 493, 473, 472, 492, 491,°5469-..490, <469, 


488, 465, 487, 486, 485, 461, 484, 483, 458, 482, 
aol. 880, —-418, 5-4/7, 476, 474, 473, 472, 471, 470, 
469, 468, 467, 466, 465, 464, 463, 462, 461, 460, 
Lo 7, Oe OO eo 6430, ~a45G, d26) -426,) °° 453;,/ “452, 
ee 420, 419, 449, 448, 447, 446, 445, 444, 443, 
442Z,. (44),- 440,70 -°408, §439, 438, 437, 436, 435, 434, 
a3 a Oe lye do 77 390, 431," “430, 429, 426, 426, 424, 
a237- O22,2 (420,20 C415, Vaile, 417, ‘dle, 415, .S414, 413; 
412, etllj SiC. 3409.0 408,.. 407, 406; 405, 404, 403, 
a2, . (aly ra00s > 399). 2398, 6397, (396,50 395, M360, 394, 
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Vy 7 clic 
( 


910 
381, 
374, 
365, 
354, 
344, 
334, 
24 
312) 
300, 


290, 
275, 
2618 
25a0 
237, 
AO. 
209, 
199, 
aoe 
ikeier 


156, 
ieee? 

Ta. 
619, 
619, 
619, 
619, 
619, 
619, 
Gilg 


390, 
380, 
335, 
364, 
353, 
343, 
333, 
323, 
coke 
299, 


286, 
oT 4. 
260, 
250, 
2a. 
219, 
208, 
195, 
178) 
165, 


155, 
ery 

Ve, 
619, 
619, 
619, 
619, 
619, 
619, 
619, 


389, 
379, 
373 
363, 
352, 
342, 
332, 
283, 
Sule 
298, 


285, 
Pape 
259, 
2 Aare 
a2) 
218. 
206, 
194, 
sleehe 
161, 


154, 
ile, 

7a 
619, 
619, 
619, 
619, 
619, 
619, 
619, 


388, 
378, 
By 
362, 
351, 
SA 
331, 
282, 
S07, 
297, 


284, 
O10; 
258, 
243", 
230, 
21a 
162, 
oa 
176, 
163, 


aa 
109, 
619, 
619, 
619, 
619, 
619, 
619, 
619, 
619, 


constant array(0..800) of 


Snore 


386, 385, 
aes Tice 
370, 369, 
360, 359, 
349, 348, 
939.4 2oee) 
329.5 sae, 
32020, 
305, 304, 
295, 294, 
282 aero sa 
266, 265, 
256, 255, 
158, 205, 
228, 188, 
Pals peak 10 
eG Zoos 
19s 1967 
17 4 aie. 
161, 160, 
1ASee es oP 
lneiG:, 96, 
619, 619, 
619, 619, 
619, 619, 
619, 619, 
619, 619, 
619, 619, 
619, 619, 
6197) eighae 
Al i 
le i. 
it i 
ile i 
aly ie 
il i 
i ile 
22, MT 
84, 30, 
Zee 33, 
22 eas 
45, 49, 
49, 45, 
49, 45, 
55, 61, 
oiee elanoe 


384, 
339, 
368, 
357, 
347, 
B37, 
225), 
319, 
303 
252, 


280, 
264, 
254, 
242, 
187; 
21 
204, 
187, 
169, 
159, 


136, 

84, 
619, 
619, 
619, 
619, 
619, 
619, 
619, 
619, 


383, 
338, 
367, 
356, 
346, 
336, 
326, 
316, 
302, 
293, 


279, 
263, 
253, 
Dae Gl A 
224) 
vii 
AOS, 
183, 
168, 

13: 


12a, 
hs) 
619, 
619, 
619, 
619, 
619, 
619, 
619, 
619 


124, L264, ile 5 110, 613, 102, oy LO2;; 133, 70, 
A iGes Oly as, ey V8, 147, 150, Bie a 64, 164, 
141, Vay, 141, io 166, 166, 186, bil2, LZ, 150, 
P32, Los, To 0; PSG. -227, bes, 200, “20, Le6,;. .209;, 


Pome oc 2G Odo, 235i 227, 234, — blips (234, “319; 
Boe 609) 164,164, 6231, 352, 352, -. 356,) 356, 358; 
SOG G7 ee SOT esol, OS91, eos, 393). 421,.0-427)- 425, 
425, 450, 450, 454, 454, 459, 459, 483, 483, 501, 
Sue oo7.. 519, \51e,/) 608, “607, 606;A'605, 604, 603, 
602, 600, 599, 598, 597, 358, 596, 207, 207, 595, 
594, 593, 592, 421, 590, 425, 588, 587, 586, 583, 
582, 501, 581, 580, 579, 578, 577, 576, 575, 574, 
573, 572, 570, 569, 568, 567, 566, 565, 393, 563, 
Beepee bel, 9 560, 550,  450,-7 568, 454,05 557.) 556, 6 555, 


Beye 519, 620, 6202 6202 1622, 62201553. 552) 91551, 
550, 549, 548, 546, 545, 544, 543, 542, 541, 539, 
537, 536, 535, 534, 533, 532, 531, 530, 529, 528, 
Sor slo 9525, S24, -522, ‘522;0 521,520, Sls, 0-517, 
516, 515, 514, 512, 510, 509, 507, 506, 505, 504, 
503, 502, 500, 499, 498, 497, 496, 495, 494, 493, 
492, 491, 490, 489, 488, 487, 486, 485, 484, 482, 
Glee AGO A75, «490, ~476,. 0475, 06474, 0 471, 470, 469, 
A467, 466, 464, 463, 462, 460, 457, 456, 455, 453, 
452, 451, 449, 448, 447, 446, 445, 444, 443, 442, 


AMipAAQ, 499,. 486, 437,.0°436/ 1435) 6 434)0--433, 432, 
AG ee 404, 498%. 490) “AG? A179) 416,) 415, 4414, 
Wee <4, 400, 8409, “407.." 406, 2405, vr 404. «403, 
402, 401, 400, 397, 396, 395, 394, 392, 390, 389, 
388, 386, 385, 384, 383, 382, 381, 380, 379, 378, 
P7ae eG, Sogo. -274:< 2399. 372-3712 1370,» 369, 365. 
Gi e366 eGo S645. BGs 1362) -- 361 7 359 357, 255: 
S54..553, . 851 350, 9349, 346, 9347, 346,.9.345,.. 344; 
pig ee e414. 640, 237, S362 T3345 333. 2392, 2331, 330. 
BOC OOO eo sects ia2s 860d $309 2398 so 2 


Pinger ge eG, sor O14 851 owe oles Les 310, we 205: 
B06. ~800. 206. -305 304-0 303. 302,06.301-. 30055. 398: 
29007 2209, 296, 295." \ 2040) 980) F299 991 2990. ogo. 
2gea, 8287.6 296, —265, 1 2e4,. 261, “260, © 27S, 277.” 2746, 
Pea eo TA OTS Oy SOI SOF lh POT Od “O40 OCR pipe 2b) te Ge, 
PaG | 264, 626366 2625 “2615 260,., 259) 250, 257 256, 
25550 254, 258 JO51,, 249.9 246 ry 247.9 2460045, ° daa 
Pee ea ee al BOAO 525.95) 2Sor- 007m? eG Oa as 
PP ee D0 IO OP £20Ge yo OO 6 ei 5 8 ee a 
PPO ego eG, aed Diet pals PoE O15, oho eo 


ZO, “2067 206, 2045. 1.2030 202,58 201,77 200,711 9556 (198, 
to. Place oe) Lot 190169 leo, Sle4y eles. eshke2, 
le oe Gy VO re rele ie 
EOD me ocyee 161, 165 (163) 0918991 S71, e671 55. <4, 
lo ee Leola, leo 45,6144," 143, baz, “140, 
LG oy SG eeelico,, 134, “13s, 122) -130) 129,128, 
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127, 126,.°9%25, 19350 122, =120) sale 1c ec eee 
116, 114, 112, IP1) 109,05 108) 106-05 pees mone 
100, 98, 96, 95, 94, 93, 92, 90, 89, 88, 
87, 86, 85, 83, 82, 81, 80, 79, Ae 67, 


65, 64, 63, 62, 59, 58, 56, 54, 52, 46, 
a2 41, 40, 39, Bice 34, 205, 29, 23, 2G 
19; 16s Ae 11, 3, 619, 619, 619, 619, 619, 
619, 619, 619, 619, 619, 619, 619, 619, 619, 619, 
619, 619, 619, 619, 619, 619, 619, 619, 619, 619, 
619, 619, 619, 619, 619, 619, 619, 619, 619, 619, 
619, 619, 619, 619, 619, 619, 619, 619, 619, 619, 
619, 619, 619, 619, 619, 619, 619, 619, 619, 619, 
619, 619, 619, 619, 619, 619, 619, 619, 619, 619, 
619, 619, 619, 619, 619, 619, 619, 619, 619, 619 


-- copy whatever the last rule matched to the standard output 


procedure ECHO is 
begin 

CEXt 16 (put Gy eexe:, 
end ECHO; 


—=- enter a Start condition. 
-- Using procedure requires a () after the ENTER, but makes everything 
-- much neater. 


procedure ENTER( state : integer ) is 
begin 

yy start := 1 + 2 * state; 
end ENTER; 


-- action number for EOF rule of a given start state 
function YY STATESEOR (state = 2nteger) @receurne nee ge aa. 
begin 

return YY END2OF BUPEER fe state... lb. 
end YY UST) Tt SEO, 


-- return all but the first ‘°n’ matched characters back to the input stream 


procedure yyless(n : integer) is 
begin 
yy_ch_buf(yy_cp) := yy _hold char; -—- undo effects of setting Up yytexe 
VY Cp <= yy_bpi sn; 
yy_c_buf_p := yy_cp; 
YY _ DO BEFORE ACTION; -- set up yytext again 


end yyless; 


-~ redefine this if you have something you want each time. 
procedure YY UsSERVACTICNS sc 
begin 
mull; 
end; 
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-- yy_get_previous_state - get the state just before the EOB char was reached 


function yy get previous state return yy state _ type is 
yy current state : yy state type; 
yy _c > short; 

begin 
yy current state := yy start; 


BOreVy cD In VYVcext DiLre.vy cubut op — Leloop 


yy_c := yy_ec(yy_ch_buf(yy_cp)); 
ig) ( yy accept (yy current state) /= 0) then 


Vy last accepting state <= yy current state; 
Vy last accepting cpos <= yy cp; 
end if; 


Whee (vy chk (vy base (yy Current stare) ti yy cc) / > yy current stete: ) 


yy current state := yy def(yy_ current state); 
if ( yy _current_state >= 620 ) then 
yy_c := yy meta(yy_c); 
end if; 
end loop; 
Vy ECULTONL State i= yy nxt (yy baselyy current state) + yy ¢), 
end loop; 


return yy current state, 
end yy get previous state; 


procedure yyrestart( input file : file type ) is 
begin 

Sec. input (anput file); 

yy_init := true; 
end yyrestart; 


began ——- of YYLex 

“<new  file>-> 
-- this is where we enter upon encountering an end-of-file and 
—- yywrap() indicating that we should continue processing 


fe { yy init )) then 
Riweavy stark — 70.) then 
yy start := 1; =-JPiEsl Stareystate 
eng. .ar > 


—-- we put in the ‘\n’ and start reading from [1] so that an 
-- initial match-at-newline will be true. 


Vy cen but (0) ~— ASCII LF; 

yVyonoehars ==. 1; 

-- we always need two end-of-buffer characters. The first causes 
=— a Cxransition to the end-of—buffer state. The second causes 


== a Jan in that state. 


yy_ch_buf(yy n_ chars) := YY_END OF BUFFER CHAR; 
yy_ch_buf(yy_n chars + 1) := YY_END OF BUFFER CHAR; 


oo 


loop 


YY eot has ®becn seen = — sia lce, 


yytext ptr «= 1, 
yy_c_buf p := yytext_ptr; 
yy hold char == yy ch buityy ec bute, 
Yy_ init. — false, 
end 147. >> 4yysente 
loop -—- loops until end-of-file is reached 
yy_cp := yy_c_buf_p; 


== SUppore Of “VYYEext 
yy_ch buf(yy_cp) := yy hold _ char; 


-- yy_bp points to the position an yyeck bul ot seher ct aac aa 
==" CULE terme 


yy_bp := yy_cp,; 
yy_current state := yy start; 
loop 
yy_c¢ := yy ec(yy ch but (yyvep)); 
if ( yy_accept (yy_current state) /= 0 ) then 
yy _last_ accepting state := yy current state; 
yy_last_accepting cpos := yy _cp; 
end if; 
while ( yy chk(yy_base(yy current state) + yy _c) /= yy_current_state ) 
Vy Current state == yy detl(yvecurteent state), 
if ( yy current state >=" 620) )ethen 
yy_c += yy _meta(yy c); 
enasit : 
end loop; 
yy current state := yyonxttyy base (vy vcurrentestate) ete ac. 
Vy-cp := yy cp=2 1, 
Lf (yy ecurrent estate, — 619s eS chen 
Gxt 
end if; 
end loop; 
YY cp := yy last accepting cpos; 
Vy current (State s— yy last accepsingescare, 


<<next Tacei1on- 
yy_act := yy accept (yy current state); 
YY DO BEFORE ACTION; 
YY USER ACTION; 


if aflex debug then -- output acceptance info. for (-d) debugemode 
text i10.put( Standard Error, “—-accepting cule t= 
text io.put( Standard Error, INTEGER’ IMAGE (yy 7 acc) 
text 106-.put linet Standard buronm, | (re yy Cee ce ee, 
end if; 
<<do action-- -- this label is used only to access EOF actions 


case yy act is 
when 0 => —-— must backtrack 
—— undo the effects of YY DOsBErenreaclIon 
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loop 


yy_ch_buf(yy cp) := yy _hold_char; 

yy_cp := yy _last_accepting cpos; 

yy current state := yy last_accepting state; 
goto next_action; 


when 1 => 
aoe line. 66 “psdl lex.” 
MYECHO; return (ADA_TOKEN) ; 


when 2 => 
--# line 67 “psdl_ lex.1” 
MYECHO; return (AXIOMS TOKEN) ; 


when 3 => 
——jeline 68 “psdllex.1” 
MYECHO; return (BY ALL TOREN); 


when 4 => 
j—teeline 69 “pedi dex.1” 
MYECHO; return (BY REQ TOKEN) ; 


when 5 => 
=—-serine 71 “psdl jex.i” 
Meco; return (BY SOME TOKEN); 


when 6 => 
sameltane 72 “psdl lex.1” 
MYECHO; return (CONTROL TOKEN) ; 


when 7 => 
=—ateline 73 “psdl lex.1” 
MYECHO; return (CONSTRAINTS TOKEN) ; 


when 8 => 
--# line 74 “psdl_ lex.1” 
MYECHO; return (DATA TOKEN) ; 


when 9 => 
peaeene ya psd! lex.1” 
MYECHO; return (STREAM TOKEN) ; 


when 10 => 
=—ieelane 76 “psdl lex.1” 
MYECHO; return (DESCRIPTION TOKEN) ; 


when 11 => 
S-aeiine 77 -“psdl lex.1” 
MYECHO; return (EDGE TOKEN) ; 


when 12 => 
Satine 78:“psdl lex.” 
MibCHO; return “(END TOKEN); 


when 13 => 
soi) line 79 psd exe 
MYECHO, return (EXCEPTIONS TOKEN) ; 


when 14 => 
=={' Tine 605 “psdigiex. 17 
MYECHO; return (EXCEPTION TOKEN) ; 


when 15 => 
- 2 Lines Sis psd he loxe. 
MYECHO; xeturn {PINTSH TCKEN);; 


when 16 => 
==4%.- line 82) @psdielox ai. 
MYECHO; return (WiTHINe TOKEN) 


when 17 => 
--$ line 83 Ss ee xy 
MYE GHG Sretwen (GENERIC TOKEN) ; 


when 18 => 
~= line 64) “pcotapie xia 
MYECHO; return (GRAPH TOKEN); 


when 19 => 
—-% line 85 “psdi lexsl” 
MYECHO; return (HOURS TOKEN); 


when 20 => 
= line 86 “psdil tex 17 
MIECHO,  =eturEn (Lhe TOKEN): 


when 21 => 
=—Wi_ Ji negro 7. Serle mem. ih 


MYECHO; return (IMPLEMENTATION TOKEN) ; 


when 22 => 
==#) line <86. "psd alex. 
MYECHO; return (INITIALLY TOKEN); 


when 23 => 
-=} Finesse psdietexw a. 
MYECHO, HeluUrne( LUC Ui ST enkEN) 


when 24 => 
==#) line 790 “psdiiilex..1. 
MYECHO,; return (KEYWORDS TOKEN) ; 


when 25 => 
=—— $i line 9s pice ae aly 
MYRCHG:? return (MAXIMUM_TOKEN) ; 


when 26 => 
=23') Lines 92 esd tee emae le 
MYECHO; return (EXECUTION TOKEN), 
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when 27 => 
—-# line 93 “psdl_ lex.1” 
MyECHO; return (TIME TOKEN) ; 


when 28 => 
easel ne 94 “psdl lex.1” 
MYECHO; return (RESPONSE TOKEN) ; 


when 29 => 
--$ line 95 “psdl lex.1” 
MYECHO; return (MICROSEC TOKEN); 


when 30 => 
=--# line 96 “psdl_ lex.1” 
MIBCHO; return (MINIMUM TOKEN); 


when 31 => 
paeaeeline 207 “psdl. lex.1” 
MYECHO; return (CALL PERIOD TOKEN); — 


when 32 => 
=aimiane 95 “psdl lex.,1” 
MYECHO; return (MIN_TOKEN) ; 


when 33 => 
==fP line 99 “psdl lex.1” 
MzyECHO; return (MS TOKEN) ; 


when 34 => 
eaemlame. 100 -“psdl lex .1” 
MeECHO; “return (OPERATOR TOKEN) ; 


when 35 => 
=—ieglane 101° “psdi lex.1” 
MYECHO, return (OUTPUT TOKEN) ; 


when 36 => 
Seyeline 102 °“psdl lex.1” 
MYECHO; return (PERIOD TOKEN) ; 


when 37 => 
—--# line 103 ‘pool lex 7k" 
MYECHO; return (RESET TOKEN) ; 


when 38 => 
Soteetane 104 “psdl lex.1” 
MYBCHO; xeturn (SEC TOKEN); 


when 39 => 
safeiine 105 “psdl lex.1” 
MaeCHO; xseturn (SPECIFICATION TOKEN); 


when 40 => 
—=4 tine 106° “psdl.lex.1" 


£0 h2) 


MYECHO; return (START TOREN), 


when 41 => 
==) Jane 07> “psedi lex. 
MYEBCHO; return (STATES CIChE 


when 42 => 
——# Wine 108 “psdlilex. le 
MYECHO; return (STOP _TOKEN) ; 


when 43 => 
==) lines 1095 “pscdia le xe 
MYECHO; returns (1 IMSRy FOREN): 


when 44 => 
=-# Janes 1 10> psdlmiex si. 
MYECHO;, return “(1 RIGGEREDS TOKEN): 


when 45 => 
==4 Fines li] “psdiebos a: 
MYECHO; Sreturn (1 YER. TOKEN), 


when 46 => 
=siwline Liz. psdl alex ls 
MYECHO; return (VERTEX TOKEN), 


when 47 => 
=-4° dine 114 “psdimiex 1” 
MYECHO; return (AND_TOKEN); 


when 48 => 
==fitine > “psdilex..- 
MYECHO, “recurm (OR TOREN); 


when 49 => 
$2 {Tine 1G sip sditges.” 
MYECHO, = relCurn 9 xOR, TOKEN): 


when 50 => 
~wi2 line lg pedi lexv 
MYECHO; return (GREATER THAN OR EQUAL) ; 


when 51 => 
==3) line lie psd) lex 
MYECHO; return (LESS THAN OR EQUAL); 


when 52 => 

=f ie: 1 o adie xen 
MYECHO; return (INEQUALITY); 
when 53 => 

= tame 120 “pedi wilex i. 
MYECHO; return (ARROW); 


when 54 => 
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=-% line 121-“psdl lex. 


MySCHO® return {°=");> 


when 55 => 


eet tine 122 “psdl lex. 


MYEGHO; return (*+"% ); 
when 56 => 

Borel ine 123° “psdl- lex 
MYECHO; return (‘*-’); 


when 57 => 


oer aine 124 “psdl lex. 


MyecHOs return (°**)¢ 
when 58 => 

--# line 125 “psdl lex 
MYBECHO; return (*/'); 


when 59 => 


=-47 lane 126 “psdl lex. 


MYSCHO; return (°&'); 
when 60 => 

==*a line 127 “psdl lex 
MYECHO; return (*(*); 


when 61 => 


——# line 128 “psdl lex. 


MYSCHO; “return (*)*’): 


when 62 => 
-aseeline 129 “psdl lex 
MYEGHO; return (‘*{ ‘); 


when 63 => 
Peteine 13:0. “psdl lex 
Mveenio;, return (°)")> 


when 64 => 
pase ine 131 “psdi.lex 
MyeCHo; return (€*:")> 


when 65 => 
--¥ line 132 “psd lex 
MYBeCHO-;. return (~;" ); 


when 66 => 
aatmelene: 133 Ypsdl lex 
MyeCHO>< return...” )-> 


when 67 => 


—-# line 134 “psdl lex. 


PVECHO; “returns GY |): 


i eas 


on Nea 


a ls 


tt Ls 


ee 


ra ess 


pal 


Pg les 


Ped lid 


ed Es 


al ees 
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when 68 => 
=Sfe line 235. psd ele xa 
MYECHO; return “> 


when 69 => 
—-¥ line 136 “psdl Hex vi” 
MYBCHO: return (| <2 


when 70 => 
—=4 line 1377 “psd Jexsi” 


MYECHO, return (MOD OREN) ; 


when 71 => 
=—4 Line 236 psdimlexall. 


MYE CHO) yretCurn, (REM TOKEN); 


when 72 => 
-~Ss line 1339S psdla len. 


MYECHO; return (EXP TOKEN); 


when 73 => 
=-4 Fine 140) psdl Tex 


MYBCHO,; return (ABS TOREN); 


when 74 => 
==) dane 41 \psdiolex 1” 


MYECHO; return (NOT TOKEN) ; 


when 75 => 
—~—j Jline £42 Yeccielex. bY 
MYECHO; return (TRUE) ; 


when 76 => 
—-=) line 243° “psdltex, i” 
MYECHO; return (FALSE); 


when 77 => 
—=4 line 145° “psdit lex.” 


when 78 => 
=at. Line 152 “pediale ss 


when 79 => 
== Fe nee oe psdialex 


Ehevprevalestoken 
thee lameaikcen 
(EDENTIF IER), 


the string token 
(STRING LITERAL) ; 


the —tdeto-en, 
to_a(psdl_ lex _dfa.yytext); 


to a(psdl lex dia. yytexee 


MYECHO; 
the winbeger token ~= to va(psdi dex dfia.yytext) ; 
return (INTEGER LITERAL) ; 


when 80 => 
—--# line 164 “psdi lex.1” 


MYECHO; 
ele wed) token >= to a(psdl lex dfia.yytext) ; 
return (REAL LITERAL) ; 


when 81 => 
Seueline 170 “psdi .iex.1” 


MYECHO; 
the text token := to a(psdi lex dfa.yytext); 
return (TEXT TOKEN) ; 


when 82 => 
--# line 176 “psdl lex.1” 
MYECHO; linenum; 


when 83 => 
--# line 177 “psdl_ lex.1” 
PvEenoOe. “nial it; -- ignore spaces and tabs 


when 84 => 
poe lane.190 “psdl lex.1” 
raise AFLEX SCANNER JAMMED; 
Wiens.) END OF BUPPER + INITIAL + 1 => 
return Bnd Of input; 
when YY END OF BUFFER => 
ao imndov the ettects ot 11 DO BEFORE ACTION 
yy_ch_buf(yy cp) := yy hold char; 


yytext ptr := yy bp; 


Case yy get next butfer is 
when EOB ACT END OF FILE => 

begin 

if ( yywrap ) then 
-- note: because we’ve taken care in 
== Vy get mext butfler() to Nave set up yytext, 
=~ We «Can Now set up yy ¢c buf p so that if some 
== tOtal hoser (like atlex itself) “wants 
-- to call the scanner after we return the 
== Bnd or Input, te Lie-still work = another 
-- End Of Input will get returned. 


yy c but .p i> yytext ptr; 
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yy_act := YY STATE EOF((yy start - 1) /72 


goto do action; 
else 
-- start processing a new file 
YV Int] true, 
Gere: new tale, 
end a2; 
end; 
when EOB ACT RESTART SCAN => 
Vy uC bul Ip i =evytexeupeer, 
vy hold char +— yy ch) but (yy ge obur py 
when EOB ACT LAST MATCH => 
yy_c buf p := yy_n chars; 
yy current state <= yy Getiprevicusese age 


yy_cp := yy_c_buf_p; 
yy_bp := yytext_ptr; 
Goto nextCrdction, 
when others => null; 
End Case, “Ss - case yy Gecumon te ourrera, 
when others => 
EOxXE TOCpUE ( jaCe Onis ajc, 
Eext 106. put ( INTEGER FMAGE( yy tact). i, 
Eexc elo, newaline, 
raise AFLEX INTERNAL ERROR; 
SiG =@aSe,;9—— Cases (Vytace) 
end loop; =—— end of loop waiting forsends cr iride 
end YYLex; 
=e i$ $line eC “esd latex. |)” 


enG@epsalelex, 
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APPENDIX S. PACKAGE PSDL_LEX_IO 


Withepsdl lex dfa; use psdl lex dria, 
VrewiecextylO; USe text 16, 


package psdl lex _io is 
NULL IN INPUT : exception; 
AFLEX INTERNAL ERROR : exception; 
UNEXPECTED LAST MATCH : exception; 
PUSHBACK OVERFLOW : exception, 
AFLEX SCANNER JAMMED : exception, 
type eob_action type is ( EOB ACT RESTART SCAN, 
EOB ACT END OF FILE, 
EOB ACT LAST MATCH ); 
nook SOP BUFFER CHAR  : Gonstant character:=. ASCII .NUL:; 
Vyenechars <= integer; == number of characters read into yy ch buf 


—-—- true when we’ve seen an EOF for the current input file 
yy_ eof has _been_seen : boolean; 


procedure YY INPUT (buf: out unbounded character array; 
Posult; out integer; max Size: in integer); 

Pincelone yy gel next buffer return eob action type; 
Preceaure yyunput( c |: character; yy bp: in out integer ); 
Preoceaqure unput (e>:* character) ; 

Minetr1 on input return character; 

procedure output(c : character); 

function yywrap return boolean; 

Pececcdure Open Input {iname + in String) ; 

procedure Close Input; 

procedure Create Output(fname : in String := “”); 
Beocecure Close Output; 

end psdl lex _io; 


becxage body psdl lex io is 
eee eoriiput and Sturis it into “but’. number of characters read, or YY NULL, 
== 15 returned in ‘result’. 


procedure YY _ INPUT (buf: out unbounded character array; 
result: out integer; max Size: Li integer) is 


Ge 2 character; 

let ince Ger = 1 

POC. integer v= but” first; 

begin 

while ( i <= max_size ) loop 

if (end_of line) then -- Ada ate our newline, put it back on the end. 
but(lec) +s= ASCII.LE: 
skip_line (1); 

else 
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get (hut (toc) Je 


end-1i: 
1lo¢ t=eleca tt 
» £2. 
end loop; 
result :=i-1; 
exception 
when END _ERROR => result es 
—- when we hit EOF we needstciscts yy ecotenacmeeenmce au 
yy_eof has been seen := true; 


end 11S. NEUL; 


== yy get next butter — ery seo yreacm in ie wee tee ie 
-- returns a code representing an action 

== EOBLACT LAST MATCH SS 

== EOB ACT RESTART SCANS] ere stare Gemceaniic Tr 
= EOB ACT _ END OF FILE [lend ot fiiec 


function yy get next butter return cebsvacrion type ic 
dest : integer := 0; 
source : integer :—= yytext sper [a= copy prem cuaG, 
number to move : integer; 
ret val; Geb vace one type, 
num to read : Minteger; 
begin 
af ( yyoc but p= syy nechars) tee ee ne 
raise NULL_IN INPUT; 
end if; 


-- try to read more data 


== first move last chars to start of burfer 


number _to move := yy c buf _p - yytext ptr; 

for i in 0..number to move — 1 icop 
yy_ch_buf(dest) := yy ch buf (source); 

dest. := dest + 2; 

source := source + 1; 

end loop; 

if ( yy _eof has been seen ) then 


ECC 


-- don’t do the read, it’s Not guaranteed to teturnesonesloumw 


== Just force an Lor 


Vy ne chars =) — 70; 
elise 


num_to_read := YY_BUF SIZE - number to move - 1; 
1£f ( num to read > YY READ BUF SIZE) @then 


num_to read := YY_READ BUF _ SIZE; 
end if; 
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=— read in more data 
YY INPUT( yy_ch_buf (number _to_move..yy ch_buf’ last), 
yy_n_chars, num_to read ); 
end if; 
at ( yy n chars = 0.) then 
fee number. Gosmovc = 1 ) then 
rec Val == EOB ACT SEND OF OF PLE; 
else 
ret val := EOB ACT LAST MATCH; 
end if; 


Py eeot wide been seen.) Eruc, 
else 

ret val := EOB ACT RESTART SCAN; 
end 1 


yy_n_ chars := yy_n_ chars + number to _ move; 
yy ch buf(yy n chars) := yY_END OF BUFFER CHAR; 
Vysenuburtyy n Chars 7°) 42> Vx END OF. BUFFER CHAR; 


=—— yytext begins at the second character in 

Bee y och but, sthne, first (character wisnthe one which 
-- preceded it before reading in the latest buffer; 
-- it needs to be kept around in case it’s a 

—- newline, so yy get_previous state() will have 
WEEN “Ss srules active 


yyeexe per «.= 1; 


Fecurn rec val; 
enagayy get next butter; 


Peeceaure yYyUnput( ¢c i: character; yy bp: in out integer ) is 
Humber LO meve = anleger ; 
dest : integer; 
source : integer; 
Pipa yy Cp + integer; 
begin 
tmp_yy_cp := yy_c_buf p; 
Dyecrabur {Emp yy ep) :- yyehold char, -— undo effiects of setting up yytext 


tie .UMp vyysce. ~ 2°) Chen 
—-- need to shift things up to make room 


HUMPS CO MOvVe i= yy mM chars + 2; —- +2 for ECB chars 
dest (:— ii BUF SIZE + 2; 
Source =-— number to move; 
While «( source > 0 ) loop 

dest := dest - 1; 

source := source - 1; 

yy een but (dest) s=syy ch but (source) ; 

end loop; 
tmp yy cp := tmp yy cp + dest - source; 
yy bp := yy bp + dest - source; 


ope, 


yy n chars ==" YY BUF SitZe, 


tf ( tmp yy cep < 2) eeeien 
raise PUSHBACK OVERFLOW; 
end if; 
end if; 
if ( tmp yy cp > yy bp and Chen yy chebul (emp y yeep. Koel. on 
yy ch but (tmp yy eps2) == Assert ir, 
end if; 
tmp_yy_cp := tmp_yy cp - 1; 
yy_ch_buf(tmp_ yy cp) := ¢; 


-- Note: “this code ic the €ext cr 1) (UOseEnOR Ne. cr FON mon, 


here we get different yy cp and yy bp’s 


yytext ptr := yy bp; 

yy hold char := yy ch buf(tmp yy cp); 
yy ch buf(tmp yy cp) := ASCII.NUL; 

yy ¢c buf p <> tmp yy cp; 


end yyunput; 


procedure unput(c : character) jis 


begin 


yyunput( c, yy bp ); 
end uUnpuc; 


fUnCELOn UnpuL LTeLurm chiaractes 71s 


e character; 
Vy Cbs.) tnteger ):— sy cx burup, 
begin 
yy_ch_buf(yy cp) := yy hold char; 
if ( yy_ch buft(yy ec buf p) — YY -ENDUOF (BURR ER ClaAk@) sehen 
——- need more input 
VY¥ECsE PE ti yy eceounrur, 
yy¢. but. pi t= "yyue butlp 7 1; 


Case Yy  9eC Mex eupDUuLtereis 


—-- this code, unfortunately, is somewhat redundant with 
-~ that above 


when EOB ACT ENDDOF sr IEE  —- 
if ( yywrap ) then 
yy © buE p => yyCext (pcx; 
ZeluUrn ASoCli NUL: 
end act > 


Vv (eh bur (0), 7 s= Ascii ain. 

yy_n_ chars ;= 1; 

yy ch buf(yy n chars) := YY END OF ssURRERVCHAR, 
yy_ch_buf(yy_ n chars + 1) := Y¥ BEND OF BUFFER CHAR, 
yy_eof has been seen := false; 

Vy Je. but ps 2, 

yytext ptr := yy c buf p; 
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) 


then 


yy hold char := yy ch buf(yy ¢ buf p); 


return ( anpue .); 
when EOB ACT RESTART SCAN => 
yy_c buf p := yytext ptr; 


when EOB ACT LAST MATCH => 
raise UNEXPECTED LAST MATCH; 
when others => null; 

end case; 


end if; 

ec := yy ch buf(yy c_buf_p); 

Vy CeUDUE pe tea yy Cc but ip tb) 

vy Nold char = :—= vy ch but(yy c but p); 


Pecan) Cc; 
end input; 


Precedure output (ec: character) is 
begin 

Eext J1O.puE (Cc); 
end output; 


-- default yywrap function - always treat EOF as an EOF 
function yywrap return boolean is 
begin 
ETeElCurn- LErue; 
end yywrap; 


preeedure Open Input (fname : in String) is 
Piet bho Ve ype, 
begin 
yy init := true; 
epen(f£,, in file, fname); 
Seesinput(f); 
end Open Input; 


procedure Create Output (fname +: in String := “™) is 
te. etile type; 

begin 
if (fname /= ““) then 


ereate({t, cut file, iname); 
Set output (tf); 
end if; 
eneaeCreate OCutpur; 


preecedure Close Input is 
begin 

mu ll 
endy Close Input; 


procedure Close Output is 
begin 
null; 


end Close Output, = 


end psdl_lex io; 





APPENDIX T. PACKAGE PSDL_LEX_DFA 


package psdl lex _dfa is 
aflex debug : boolean := false; 
Wytexe ptr s)anteger; =—- points to start of yytext in buifer 


== yy ch but has to be 2 characters longer than YY BUF SIZE because we need 

pee oUt. 1ne2 end-Of-putter Characters (Chis 1S explained where it is 

Seeoone) at -chevend of yy eh but 

een BUR Sl 4h: comstant anteger .= 8192; 

ieee Ur yo 2h constant integer <~-— yi READ BUR SIZE ~ 2; == size of input butter 
mvpe unbounded Character array 1s array(integer range <>) of character; 

subtype ch buf type is unbounded character array(0..YY BUF SIZE + 1); 

Vy een but: ch but type; 

Uvymcp, YY bp : anteger; 


memyy Old char holds che character Tost when. yytext is formed 
Yyenela char: character; 
Vyoc Dui p +: integer; == POILNES CO.CuUrrent character in burfer 


function YiText return string; 

Tunmeevon YrYLengeh return integer; 

procedure YY DO BEFORE ACTION; 

--These variables are needed between calls to YYLex. 

Wye =. boolean “:= true; -- do we need to initaalize YYLex? 
Wyeeeart ; integer--— 0; —= current start state number 
SUbLyYpe yy State type 1s integer; 

yy last accepting state : yy state type; 

Pyeaste accepting epos << integer; 

end psdl. tex dia; 


with psdl lex dfa; use psdl lex dfa; 
package body psdl lex dfa is 
founeeion YYText return string is 

io: ANnGeger; 

str_loc : integer := 1; 

bueter {string (l..1024)> 

EMPTY STRING © constant string <= ““; 


begin 
= find end of butter 
is= YyYCext ptr; 
while: (ryy ch but(i) /= ASCIT.NUL ) loop 
buErer(strioloe )) 3= Vy cehbue (aj. 
a Oe ee RR ee 
ser toe = ctr loc +1; 
end loop; 


SS return vy sch bulL(yytexte per... 4 - 1); 
at (Str loc <2) then 


return EMPTY STRING; 
else 
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return butter (lst r vec rt), 
end if; 


end; 


-- returns the length of the matched text 
function YYLength return integer is 
begin 
return Vy ¢p — Vyeer, 
end YYLength; 


-- done after the current pattern has been matched and before the 
-- corresponding action - sets up yytext 


procedure YY DC BEFORE ACTION 2s 


begin 
yytext ptr := yy bp; 
Vy hold éhar . =" ¥ 7 scm one ye), 
yy_ch_ buf(yy_ cp) := ASCII.NUL; 
yy_c_buf_p := yy_cp; 


end YY DO BEFORE VACTION, 


end epsa! lextdia, 
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APPENDIX U. PACKAGE PARSER 


-- Ssource: /n/gemini/work/bayram/AYACC/parser/RCS/psdl.y,v § 
-- Sdate: 1991/08/28 10:04:49 § 

—— Srevision: 3.3 § 

-— $log: Psdl.yY,V §$ 


a a ae ee 


em a ea ee i 


—_— se eee ie ee ee Oe em OE OO VV SS ee ee 


Whens text lo, Psdl Component Pkg, Psdl Concrete Type Pkg, stack Pkg, 
Podl Graph Pkg, Generic Sequence Pkg, A. Strings; 
use Psdl Component Pkg, Psdl Concrete Type Pkg, Psdl Graph Pkg; 


package Parser 1s 


-- Global Variable Which Is A Map From Psdl Component Names To Psdl 
-- Component Definitions 
The Program —-— Implemented 
Psal Program; 


== Global Variable For A Psdl Component (Type Or Operator) 


The Component —- Implemented 
Psdl Component; 


-- Global Variable Which Points To The Psdl Component (Type Or Operator) 
The Component Ptr —-— Implemented 
Component. Perr; 
== Global Variable Which Points To The Psd] Operator (Type Or Operator) 


The (Op PEE —-- Implemented 
Op Per; 


== used EG Construce the operation map 
The Operator : Operator; 


—— Global Variable For An Atomic Type —-- Implemented 


The Atomic Type 
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Atomic Type; 
-- Global Variable For An Atomic Operator 


ihe Atomicsieperatcor -- Implemented 
Atomic Operator; 


-- Global Variable For A Composite Psdl Type 


The Composite Type -- Implemented 
Composite Type; 


-- Global Variable For A Composite Psdl Type 


The Composite Operacon -- Implemented 
Composite Operator; 


-- /* Global Variables For All Psdl Components: */ 
-- Global Variable Which Holds The Name Of The Component 


ThesrsdlaName -- Implemented 
Psd id; 


-- Global Variable Which Holds The Ada Td Variable Ot Component Recor 


The Ada Name -- Implemented 
Ada_Id; 


—-- Global Variable Which Holds The Generic Parameters 


TiegGerger az -- Implemented 
Type Peclaracren, 


== used for psdl type part (flor not to mix withwoperation map) 
Ther lype Gen Irare, | tyres claracion, 


-- Global Variable Which Holds The Keywords 


The Keywords -- Implemented 
Id Set; 

The Desecripr ren -- Implemented 
Text; 

The Axioms -- Implemented 
ext 


—-- A Temporary Variable To Hold Output Id To Construct Cuts Guaccst ap 


ThesOuepur sid 
eybhey sabia wire 


-- A Temporary Variable To Hold Excep Id To Construct Excepel erqgere ea 
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TMiesExcep. id 
Excep Id; 
-- Global Variables For All Psdl Types: 
-- Used For Creating All Types 


The, Model -~ Implemented 
Type Declaration; 


The Operation Map —-- Impiemented 
Cperabion Map, 
-- Used For Creating Composite Types 
iiesvata Structure -- Implemented 
Type Name; 
-- Global Variables For All Operators: 


Pie. input —-- Implemented 
Type Declaration; 


The Output ~- Implemented 
ives Veclaracieon, 


Phesscate -~ Implemented 
Type Declaration; 


Theyinitial Expression -- Implemented 
Init Map; 

tye sExceptions -- Implemented 
td Set; 

The Specified Met -- Implemented 
Millisec; 


=— Global Variables For Composite Operators: 


Tie, Graph -- Implemented 
Peat. Graph; 


The Streams -- Implemented 
Tyee Weclarae von; 


Tive Timers ~- Implemented 
Td Set; 
ine frigger -- Implemented 


Trigger, Map; 


The Exec Guard 
Exec Guard Map; 


The Out Guard 
Out Guard Map; 


The, Bxcep Trugger 
Excep Trigger Map; 


The rime Goo 
Timer Op Map; 


Tie Ceer 
fimang Map; 


Theshw 
Timing Map; 


The sMep 
Timing Map; 


Tinie wie 


Timing Map; 


TheVinpl Desc 
Texte: = Enpryelexe, 
-- Is Used For Storing The Operator Names 
The Operator Name 
Psdl ad 
-- A Place Holder To For Time Values 


Them lame 
Millisec; 


-- Implemented 


-- Implemented 


-- Implemented 


-~- Implemented 


-- Implemented 


-- Implemented 


-- Implemented 


-- Implemented 


In Control, Const raints seas 


-- True If The Psdl Component Is An Atomic One 


Is Atomic Type 
Boolean; 


Is Atomic Operator: Boolean; 


-- Implemented 


-- Holds The Name Of The Edge (I.E Stream Name) 


The Edge Name 
Psd lata: 
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-- Implemented 


-- Renames The Procedure Bind In Generic Map Package 
-—- Psdl Program Is A Mapping From Psdl Component Names 
-- .. To Psdl Component Definitions 


Procedure Bind Program 
( Name : In Psdl Id; 
Component : In Component Ptr; 
Program : In Out 
Psal Program ) 
Renames Bind; 


-- Renames The Procedure Bind In Generic Map Package 
—-- Psdl Program Is A Mapping From Psdl Id’S To Psdl Type Names 


Procedure Bind Type Decl Map 
Gexey =: In Psdl id; 
Result : In Type Name; 
Nap 2 In Out 
Type Declaration ) 
Renames Type Declaration Pkg. 
Band ; 


-— Renames The Procedure Bind In Generic Map Package 
-- Operation Map Is A Mapping From Psdl Operator Names To Psdl 
as. Operator Definitions. 


Procedure Bind Operation 
( Key : In Psdl Id; 
Resule. in Op, Per, 
Map; In Out Operation Map } 
Renames Bind; 


-- Renames The Procedure Bind In Generic Map Package 


-- Trigger Map Is A Mapping From Psdl Operator Names To Trigger 
—- .. Types (By Some, By All, None 


Procedure Bind Trigger 
mxey in Psd tid; 
Result : In Trigger Record; 
Mages ieourk Trigger Map: ) 
Renames Trigger Map Pkg.Bind; 


-- Renames The Procedure Bind In Generic Map Package 
-- Timing Map Is A Mapping From Psdl Operator Names To 
-- .. Some Timing Parameters (Per, Mri, Ew, Mcp, -...) 


Poeocedure Binds lamang 


(Key Gaslinee sala, 

Result. In Mativeecec: 

Map : in Out Timing Map 
Renames Timing Map Pkg.Bind; 


-- Renames The Procedure Bind In Generic Map Package 
=-- Out Guard Map Is A Mapping From) Outpuc Stream id Salo 
== 3. EXpPrEeSSiOon SErangs 


Procedure Bind Out (Guard 
( Key = InvOutputceid, 
Result ; in Expression; 
Map = In wut (OursGuardsliap) 
Renames (CuesGuardy Map el kon snc, 


-- Renames The Procedure Bind In Generic Map Package 
== init Map is A Mapping Exrom, -Psdivid Sato 
——". EXpresSi6n Strings 


Procedure Sindwinitwiape 
( Key te tneescietd: 
Result : In Expression; 
Map = In Ouc Init Map) 
Renames Init Map Pkq.Bind, 


-- Renames The Procedure Bind In Generic Map Package 
=— Timer Op Map Is A, Mapping Erom ~Psdij ids ahe 
==... Mane reOpms ce 


Procedure Bind Timer (Op 
( Key: in Psdi id; 
Result). in) Timer Op isec, 
Map : In Out Timer Op Map ) 
Renames Timex Cp Mapubkg pind, 


-- Renames The Procedure Bind In Generic Map Package 
-- Exception Trigger Map” Is A Mapping From Psdly ld @serec 
—— .. EXPressicn StiLings 


Procedure Bind Excep Trigger 
(Key 9.) Ingexcepe ta, 
Result = In Expression, 
Map ; In Out 
Excep Trigger Map |) 
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Renames Excep Trigger Map Pkg. 
Bin: 


—-—- Renames The Procedure Bind In Generic Map Package 
== Exec Guard Map. “1s A Mapping Erom-  Psdl Ida S To 
=— 1. EXpPLession Strings 


Procedure Bind Exec Guard 
@ekey. coin Psdl ida; 
Result : In Expression; 
Map ; In Out Exec Guard Map 


) 
Renames Exec Guard Map_Pkg.Bind; 


-- Implements A Temporary Storage For Type Declaration. 


Package Type Decl Stack Pkg Is 
New stack Pkg (Type Declaration) 


t 
eee Type Decl Stack Pkg; 


Subeype Type Decl Stack Is 
Tyee Vecl Stack Pkg. stack; 


Bere Stack Declaration And Initialazation For Type Declaration 
tne: lype Uecl Stack 


Type Decl Stack <= 
[Pype, Dechistack  Pkg.Create; 


Package la Set Stack Pkg Is 
New Stack Pkg (Id Set); 


Subtype Id Set Stack Is 
Passet ssback Pkg .Stack; 


-- A Stack Declaration And Initialization For Id 
The. Jd Set Stack 
ide Ser stack := 


Id Set Stack Pkg.Create; 


=~ Global Declaration Yor Type 1d Set 
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The Id Set -- Implemented 
ldesSec; 


THeeld oer Size 
Natural; 


Package Expression Stack Pkg Is 
New Stack Pkg (Expression) ; 


Subtype Expression Stack Is 
Expression Stack_Pkg.Stack; 


-- A Stack Declaration And Initialization For Id 
The Expression Stack 


Expression Stack := 
Expression Stack Pkgq.Create, 


Package Expmcequlh@urs 
New Generic Sequence Pkg (T => 
Expression, Block Size => 24 


es 


Subtype Exp Seg Is 
EXpoceqs  Kkg.cequence, 


-- returns an empty expression sequence 
function Empty Exp Seq return Exp Seq; 


The Exp seq 

Exp Seq; 
The Init Expr Seq = Exp Seq; -— Used For Constructing Tntemiies 
Temp init Expr seq > Expused, 


package Init Exp Seq Stack Pkg is 
new Stack Pkg (Exp Seq); 


subtype Init Exp Seq Stack is Init Exp SequsScackero-ocac.: 


The Init sh xpeseq stack 
Init _ Exp Seq Stack := Init _Exp Seq Stack Pkg.Create; 


Procedure Remove Expr From_Seq Is 
New Exp Seq Pkg.Generic Remove (Eq => “="); 


Package, 1a Seq Feagis 
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New Generic Sequence Pkg Cae => Psdl Id, 
Block (51.726 5—> 24) 


Subtype Id Seq Is 
fa seq Pkq.Sequence, 


Terid Seq 


fayseq,; 


Pies init :Map Id Seq: 1d Seq, a LOrnolda the 1d S tO construct intl imap 
-~ these are the same id’s used in state map. 


—-- Holds The Name Of The Types; 


The Type Name 
Type Name; 


—--— Used For The Type Decl Part Of Type Name 
The Type Name Decl : Type Declaration; 


-— A Temporary Type Decl 
Tenp. lype Decl 
Type Declaration; 


~~ A Temporary Variable For Holding The Identifiers 


tie Totring 
Bs@illid; 


== elemporary Variable Por Trigger Record 


The Trigger Record 
Trigger Record; 


=~ ovliemp Variable Por Holding The Value’ Of Timer Op 


fae Timer Op) Record 
Timer Op; 


tive Timer Op Set 
Tamer sOp sev; 


== A -femp Variable For Producing The Expression String 
the Expression string 


Expression := Expression ( 
A et rings. Empty); 
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-— A Temp Variable For Producing 


thes liness cor ung 
Expression := Expression ( 


A_Strings.Empty) ; 


Echo 


Boolean :;:= False; 


NumbereO. Errors 
Natural := 0; 


Semantic Error Exception; 


Procedure Yyparse; 


procedure GET (Item 


PEHOCECUTe Git (input files 
Output. Pa les 
item 


end Parser; 


we es ee ee we we we ws oe 


ee ee ee ee es es ee ee ee 


with Psdl Tokens, FsaliGoto, 
Psqi esha teeneduce sr Sais lex, 
Text Jo, Psdl Lex Dia; 
Ps@l Lbex lo, A Strings, 
Psdl Conerete Type Pka, 
Psdl Graph _ Pkg, 
Generic Sequence Fkq, 
use Psdleilckens, Ye salicoro, 
Psdi_ Shift Reduce, Psdl lLex, 
Texte to, 
Psdl Concrete Type Pkg, 
Psdl Graph Pkg; 


package Body Parser is 


in ot ang 9. = 
out PSDL PROGRAM) ; 


The Time String 


out PSDL PROGRAM) ; 


sigh Spe anligte sh 


WM, 
f 


ee 
SS SS Se OL SS ES SS SS SS SS SE SS Se ee iS SSS ee ee ee ae as ee 


body PARSER -— 


me 


-= this flag is set to Crue when optional generieompeean 


-- rule is parsed, to overcome the problem when two 
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—-~ id’s come after one another. 


Type lopec Gen Paz 


Boolean 


See psd] lex.1 file 


mm ce cc a ww we cre cm wa cr ww er rr ee ie i 


-— function Empty Exp Seq 


mm mc ec re mw ee i 


function Empty Exp Seq return Exp Seg is 


© 2 bxp seq; 
begin 


Exp Seq Pkg.Empty(S); 


Mew: sS:; 
end Empty Exp Seg 


, 


ee ee ee tt 


procedure Yyerror 
(Sos Sins Sserang 
rovncvax Error 
Space 
Integer; 


begin —-— Yyerror 


mn 


Number Of Errors 


Number Of Errors + 1; 


Text _Io.New Line; 
exe houruct Line a) Integer” 


» 108 


Image(Lines - 1) & 


TexcLlou.rut line (Pcal JLex Dra. 


Yytext); 


Space := Integer (Psdl Lex Dfa. 
Yytext’ Length) 


Nios 
e 


ap Be 


+ Integer’ 


Image (Lines) ’Length + 5; 


EOL. in 1 
Put (“—") ; 
end loop; 


Puc bane: (© ?° Yes) 4 


end Yvyerror; 


Space loop 


ee 


== Given A String Of Characters 
-- Returns The Natural Value 


funce Lon 


Conver be Toe bagi t 


Corresponding Te + Natural 


mmc cr cr mmr ee ee eee eee ee ee ee ee 


function Convert To Digit 


(foer ing Digit 


io ae a Wg 


Return Integer Is 


Multiplier 
Integer := 


lj 


Digit, Nat Value 


Integer := 


GO; 


) 


Begging ==—ConverL, forlbrgre 
For I In Reverse 1 
Sscring Dagit Leugrene boop 
Case string Digit is 
When ‘0’ => 


Digit. .=-20, 
When ‘1’ => 
Digit o:= i; 
When ‘2’ => 
Dang taes — a 
When ‘3% => 
Digit, 4-3; 
When ‘4’ => 
Digi 3=— 4; 
When ‘5’ => 
Dig@ve ==" Si; 
When ‘6% => 
Digit’ := 6; 
When ‘7’ => 
Dag s= ad, 
When ‘8’ => 
Digii~:= "8; 
When ‘9’ => 
Digie <= 9; 
When Others => 
Null; 
End Case; 
Nat) Value -;— Nat Value 7. 
Multiplitem = bagi t 
Multiplier 3;— Multiplier. = 10, 
End Loop; 


Return Nat Value; 
ena Convert loebigie, 


mem em rm ee a i 


== procedure GET 


-- Reads the psdl source file, parses it and creates the PSDL ADT 
-- Input file is line numbered and saved into a file 

—=- input file mame lst an the; current sdtrectonry..5coei 

—- there 1S no write permission Lon that Gireceery,, excepreron 

-- Use Error is raised and program aborts. if the second argument 
-- is passed psdl file resulted form PSDL ADT is written into a 

=> Stale with thats name. 


re me wer a i ie i ss 


procedure GET (Input File N “:21n String; 
SUG PUY bes =: in Se etna 
Item ) Qube P SDE PROGRAM. seins 
begin 
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Psdl, Lex 1o.Open._Inpur (input Fate N); 
Pe Output File un /= "chen 
Psdl Lex Io.Create Output (Output File N); 
else 
Psdl Lex Io.Create Output, 
end. af: 
tex loveredta (Psa) Lex bist bile Out bale, Input Pile N-& *.ist”),; 
Pedl Lex. Linenum; 
YYParse; 
Pedi Lex lo Close Inpune; 
Psdl Lex Io.Close Output; 
teem ;—- The Program, 
heat lo,Close(Psdl Lex. List File); 


end Get; 


mmm re a ws wr ww rr er ee we ae eae ie a ee 


oe procedure GET aa 


-- Reads the standard input, parses it and creates the cio 
poe DG FO. Inpue Lite 1s line numbered and. saved into a we 
Se tile input file name .lst in the current directory.So if =o 
-—] there 1s no write permission for that directory, exception —— 
a use Error 1s raised and program aborts. == 


mmm a ee ie i 


Brocecdure GEI(item =; out PSDL PROGRAM) is 


begin 
Text lo.Create(Psdl Lex.Llaist File, Out File, “stdin.psdl.lst”),; 
Ped! Lex.Linenum; 
YYParse; 
Peal Lex lo; Close Input; 
Psat Lex ic.Close Output; 
icems:-— he Program, 
fexcelozC lose (Psd) Lex List File); 


end Get; 


em ew ww ws re ee ee rs re re re ee ee ae ae a ea ee 


aes procecure Bind Type Declaration = 


zy bind Each, 1d anid The Id *7 = 
--/* Set To The Type Name ais — 
Zo, Return Temp: type: Peck and ie 


—_—— a nn nn nnn an nnn ee a wa a aa ew aw wr ee we ae es es es 


Procedure Bind Type Declaration(I 5: in Tie sec, 
ersten eh Type_Name; 
Td : in-out. Type Declaration) eis 
begin 
——/ ~ maucoue 
~-/* foreach( [1d Psdl Td), [Pavseelerg -Gever ter scaay 


--/* [I_s], 

--/* [ 

=) = Bind Type Decl Map(Id, Tn, Td); 
—~/* )) 


—--/* Begin expansion of FOREACH loop macro. 
declare 
procedure Loop Body (Id: Psdl Id) is 
begin 
Bindi Type DecliMap (ld, iu. ta), 


end Loop Body; 
procedures Pxccure Looper. 
new Id Set Pkg.Generic Scan(Loop Body); 
begin 
executes loop (Tas); 
end; 
——/* end of expansion of FOREACH IcGop macro. 


end Bind Type Declaration; 


ne PEeOcedlres Bridwhittralysrace =— 


--/* Bind Each Id In the State map domain -- 
--/* Set To The Type Name initial expression -~ 


mm cme emcee mmm cm cmc cc cr ee a a a ee ee oe ee oe 


procedure Bind luteal escace (seeace win lype Declaraciog, 
[nie Seq > in Exp Seq; 
Pnite ExpoMap. out Inte iharyeis 
Lt Natural. -=—1- 
== M4 macro code for binding each initial expression in =e 
ae the init expr seq to the id’s in state declaration map --/* 
—--/* foreach( {ids in Psdlotd, Vinee yresnane |, --/* 
== [Type Declaration Pko.Generic sean, SS 
=e [State], a 
——/* [ —~—/* 
== /% Bind Init Map(Id, Exp Seq Pkg .Feteh (The Inictebxp scq,5), ——7 
if The Initial Expression) ee 
Says i seas a 
--/* }) --/+ 
begin 


-~ Begin expansion of FOREACH loop macro. 
declare 
procedure Loop Body(Id: in Psdl_ Id; Tn: in Type Name) is 
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begin 
if 2 2 Exp seq Pkg-LengthitThe Init Expr Seq) then 
Yyerror(” SEMANTIC ERROR — Some states are not initialized.) ; 
Raise SEMANTIC ERROR; 
else 
bind Miitalap (id, Exp oceq big-Percn (The Init Expr Seq; 1), 
The Initialebxpression); 
fh. teveey le, She es 
end ft - 
end Loop Body; 
procedure execute loop is new Type Declaration Pkg.Generic Scan(Loop_ Body) ; 
begin 
execute loop(State); 
end; 
-- LIMITATIONS: Square brackets are used as macro quoting characters, 
-- so you must write [{x]] in the m4 source file 
-- to get [x] in the generated Ada code. 
—-- Ada programs using FOREACH loops must avoid the lower case spellings of 
-—- the identifier names “DEFINE”, “UNDEFINE”, and “DNL”, 
—-- or must quote them like this: [define]. 
—-- The implementation requires each package to be generated by 
-- a separate call to m4: put each package ina separate file. 
-- Exit and return statements inside the body of a FOREACH loop 
-- may not work correctly if FOREACH loops are nested. 
-- An expression returned from within a loop body must not 
-- mention any index variables of the loop. 
=> Bnd expansion of FOREACH loop macro: 


-- if number if initial states > number of states, raise exception 
=— and .abOre parsing 
ee Ca Lj “Exp Seq Pko.lengeh{The Init Expr Seq) then 
Yyerror(“SEMANTIC ERROR - There are more initializations than the states”); 
Faise SEMANTIC ERROK; 
end LF > 
sua, bind sIinitial State; 


a a a ee ae ae 


<— procedure Make PSdl Type poe 


aa construct the PSDL TYPE using global variables —— 


wm ee ee 


(C_ Name 7 an Psat eid; 

Coa Name < -in.Ada Id; 

Mdl > an TypeoDeclaration; 
DuSex > an. Type. Name; 

Ops ; on vOperet won Map, 

Gorar in OUL Type Declaration; 
Kwr pain out id. Sec; 

I Desc el. Out, Lext: 

EaDesc Sein GUL lex. 


fs Atomic: in Boolean; 
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Then lyre 
begin 


ti iS (ATOMIC  enen 
The Type. — MakewAtoniest ype 
( Psdl Name => C Name, 
Ada Name => C_A_Name, 
Model => Mdl, 
Gen Far = Gear, 
Operations=> Ops, 
Keywords => Kwr, 
Pnformale Desert pe lon 
=> I Desc, 

Axioms => F Desc ); 


else 


The Type := Make Composite Type 


( Name => C Name, 
Model => Mdl, 
Data St rucr are 

=e iB) Seley, 
Operations=> Ops, 
Gen veax => G Par, 
=> Kwr, 
Informal Description 


Keywords 


=> I Desc, 
Axioms => PF Dese ) 


end an: 


in, out Pabaglyee, sis 


=— /* After constructing the component ae 


-- /* initialized the global@varibales oO. 7 


-- /* optional attributes 


oy 


Goran = Empty Type Declaration; 
Kwr >= Empty Id Set; 

I_ Desc := EMpty Text; 

F Desc s= EMpty Text; 


end Build PSdl Type; 


-— procedure Buala Psd Operaror = 


-- SOnsStruce. che 


— cr cr er ce cr ce cc cc ce ee ee ee ee ee ee ee oe 


procedure Budldersdly COperacen 
(C_Name 
C_a Name 
G Par 
Kwr 
I_Desc 
F Dese 


PSDL OPERATOR using global variables = 


in Psdleta, 

an Ada sia, 

om Out lVvpenDeclaracron, 
Bi Out ela User, 

in OUEMDexE: 

eeouc TEXxt- 
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begin 


Pe 1S. ATOMIC then 


ne in, ouG [ype Declaration; 
OLD iMeOut  lype Veclararion; 
SE sin out Type Declaration; 
ISExp Map: im out Init Map; 

Excps i.out, Id Seu, 

SoMEd Ineouc Ma viasec: 

Gr in One PsdadlsGraph; 

D Stream in out Type Declaration; 
Tmrs In out ld Ser; 

Leirgs in jeu “Tragger Map; 

E Guard in out Exec Guard Map; 
O- Guarda in-out Out Guard Map; 
Bodragger; im out Execep Trigger Map, 
Te Oe in out liner Op Map, 

Per in-out Timing Map; 

Fw in our Timing Map; 

Mcp inoue Timing. Map; 

Mrt in out Timing Map; 

Im Desc LiMOUD. Lex r 

PScATOMIC; in Boolean; 

the Opr in Out. Operator) is 


The Opr := Make Atomic Operator 

( Psdl Name => C Name, 
Ada Name => C A Name, 
Gen, Par => G Par, 
Keywords => Kwr, 
incoumal: Description 

= I) Desc, 

Axioms => F Desc, 
iInpuc => Inp, 
Our put => OCD; 
State => St, 


iMitiali zation Map 


=>. ox Map, 


Exceptions => Excps, 
Specified Met => S MET); 


else 
The Opr <= 
( Name => 
Gen Pat => 
Keywords => 


Make Composite Operator 


C Name, 
GePar, 
Kwr, 


Informal Description 


—- Deca, 


Axioms => 
Input => 
OuEpUL => 
State => 


F Desc, 
inp; 
Otp, 

St; 


Initialization Map 


= -[oExp Map, 
EXCepUl1Ons ——- Excps, 
Specified Met => S Met, 


Graph => 


Gr; 
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Streams => D Stream, 
Timers => Imers,; 

Triggex. => Tmigs, 

Exec Guard=> EeGuarda, 

Ouba Guard ]—~ O Guard, 
Excep [rigger = sea teigde:, 
Timer Op => T_Op; 


Per => Per, 

Fw => Fw, 

Mcp => Mcp, 

Mrt => Mrt, 

Imp! peseu—2 sim bese), 
end. at 
-— /* After constructing the component Bey 
-— /* initialized the global varibales for */ 
-- /* eptional attributes wy! 
Gitau := Empty Type Declaration; 
Kwr := Empty Id Set; 
I Desc s= EMpty Text; 
F Desc 7— EMpty (1exet; 
inp := Empty Type Declaration; 
Otp := Empty Type Declaration; 
SE >= Empty Type Declaration; 
I_Exp Map := Empty Init _Map; 
EXCpS ;= Empty Id Set; 
S Met := 0; 
Gr := Empty Psdl Graph; 
D Stream := Empty Type Declaration; 
Tmrs := Empty Id Set; 
Trigs >= Empty Trigger Map; 
E Guard := Empty Exec Guard Map; 
O Guard := Empty Out Guard Map; 
Eeleigger (= —) inpeyeexcep. Trigger Map, 
T Op := Empty Timer Op Map; 
Per -= Empty Timing Map, 
Fw := Empty Timing Map; 
Mcp := Empty Timing Map; 
Mre >= Empty Timing Map; 
im Desc j— QMeey Text, 


end Build Psdl Operacon, 


emer re re a a a 


om procedure Add Op Impl To Op Map moa 


== Uses the operation map we cunstructed only with the == 
a specafticaticon part. == 
== Fetchs the operator from the map, uses to create a new one-- 
== with it(specification part) and add the implementation a 
== EO Le. ee 
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== Remove the old one, and add the new complete operator the <== 


—— map. -- 
peececure Add Op impi To Op Map(Op Name ; in -Psa lid, 
A Name ain Ada id; 
Is Atomic : in Boolean; 
O Map win cue Operation. Map; 
Gr ; Un out. Psd Graph, 
Db UStream ~: Im out” Type Declaration, 
Tmrs > th .Out pla see, 
Hh ag ro =) j imMmpouk. Trager Map, 
E Guard tit (OUE Exec (Guard, Map; 
O Guard ; I /Oue Out ~Guara Map; 
Bx trigger = iy out “Excep Trigger Map; 
T Op : 2m cuc Timer Op Map; 
Per 7 in-out) Timing Map, 
Fw ein out Tamang Map; 
Mcp > inh out Timing Map; 
Mrt ; in out Timing Map; 
Im Desc 7 2 OUP Trexe. | acs 
Temp Op 2 Operator; 


jemp Op Per. Op Per, 


begin 
if Operation Map Pkg.Member(Op Name, Operation Map Pkg.Map(O Map)) then 
temp Ops. = 
Operation Map Pkg.Fetch (Operation Map Pkg.Map(O Map), Op Name) .ali; 
Operation Map Pkg -Remove(Op Name, Operation Map Pkg.Map(O Map)); 
i: iseAtonic then 


Temp Op ;:= Make Atomic Operator 
(Psdl_ Name => Op Name, 
Ada Name => A Name, 
Gen Far =- Generic Parameters (Temp Op), 


Keywords => Keywords(Temp Op), 
intormal Déescriprion 
=> Informal, Description (Temp: Op), 


Axioms =-- Axioms (Temp Op); 
Inoue => Inputs(Temp Op), 
Sincere = Outputs (Temp Op), 
State =- states (Temp Op), 


imitialbyzation. Map 
= Gee init Map(Temp Op); 
ExceptCions=> Exceptions (Temp Op), 
Speciiied Met, = 
Sspecitied Maximum Execution Time (Temp Op) ee 


Temp Op Ptr := new Operator (Category => Psdl Operator, 
Granularity => Atomic); 
Temp_Op Ptr.all := Temp Op; 
else 
Temp Op := Make Composite Operator 


(Name => Op Name, 
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Cenmh an => Generic Parameters (Temp Op), 
Keywords => Keywords(Temp_ Op), 
Informal Deseripevon 
=> Informal Desexiption (Lemp Ope 


Axioms => Axioms(Temp Op), 
Input => Inputs(Temp Op), 
Output => Outputs (Temp_Op), 
State => States(Temp Op), 


Initia lizaerone ale 
=" Getlvinit Map (lenp Op 
Exceptions=> Exceptions(Temp Op), 
Specified Met, —- 
Specified Maximum Execution Time (Tempyo pg 


Graph => Gr, 
Streams => D Stream, 
Timers => Tmrs, 
Trigger => Trigs, 


Exec Guard=> E Guard, 

Out Guard => O Guard, 

EXcep Trigger —~ Ealrigger, 
Timer Op => T_ Op, 


Per => Per, 
Fw => Fw, 
Mcp => Mcp, 
Mrt => Mr, 


Impl Dese => Im Dese); 


Temp Op PEx := new Operator (Category =7 Psdl Operator, 
Granularity => Composite); 
Temp? Op PCr ali —=lemp sop; 
end. dst: 


Bind Operation(Op Name, Temp Op F°r, Olan) | 


—-- reset everything after you are done. (the variables that 
—-- have default values) 


Gag := Empty Psdl Graph; 
Dostream 7 EMptyolype. Declaration, 
Tmrs '— Sipe velomoct, 
Trigs i= EMpey trigger Map, 
B Guard := Empty Exec Guard Map; 
OnGuard := Empty Out Guard Map; 
E Trigger = Empey Bxeep lrigger wap, 
T2ep := Empty Timer Op Map; 
Per ;= Empty Timing Map; 
Fw := Empty Timing Map; 
Mcp := Empty Timing Map; 
Mrt >= Empty Timing Map; 
Im Desc i= EMpeyelency 

else 


Put ("Warning: The specification cf operatonme. jy 
Put Line (Op Name.s & “* was not given, implementation ignored.”); 
end e 
end Add Op Impl To Op Map; 


procedure YYParse is 


-- Rename User Defined Packages to Internal Names. 
package yy goto tables renames 
Psaln Geto, 
package vy shift reduce tables renames 
Pedi Sohatt  keduce; 
package yy tokens renames 
Psdl Tokens; 


use| yy tokens, yy goto. tables, yy shiitt reduce tables; 


procedure yyerrok; 
procedure yyclearin; 


package yy is 


—~ the size of the value and state stacks 
stack size : constant Natural := 300; 


-- subtype rule is natural; 
subtype parse state is natural; 


-- subtype nonterminal is integer; 


=—ENnGryptelon constants 


default = GCOnStant := -—1; 
FIrSt.Shiel enery > constanc = 0; 
accept code  Seonstant <= —1001); 
errer iecde S Constante <= —1000; 


—-- stack data used by the parser 


tos ? Natural := 0; 
value stack >; array(0..stack size) of yy tokens.yystype; 
state stack y erGay (0. . Slack Size) *Cr parse state, 


-- current input symbol and action the parser is on 


action > integer; 
rule id 2 ue: 
input symbol y yyoeokens. Coken;,. 


—-- error recovery flag 


ereor 2146 3, natural: — ‘0; 

-- indicates 3 - (number of valid shifts after an error occurs) 
look ahead : boolean := true; 
index >: integer; 


—-— 1s) Debugging: option on or off 
DEBUG : constant boolean := FALSE; 


end yy; 


function goto state 
(state : YY.parse state; 


sym ; nonterminal) return yy-parse State, 
function parse vaction 
(State = yy.parse State, 


t : yy tokens.token) returnernecgqar, 


pragma inline(goto state, parse action); 


function goto_state(state : yy.parse state, 
sym > nonterminal) return yy.parses seacemnc 
index : integer; 
begin 
index := goto offset (Stare), 
while integer(goto_matrix(index).nonterm) /= sym loop 
index  :="index + =: 
end loop; 


return integer(goto matrix (index) .newstate) ; 
ena goto 7statre, 


fLunCEION Panse act rom( state, = yy. parse (seace, 
1 > yy tokens. token)  vecurn integers 
index : integer; 
tok pos ; Integer; 
default 7 -constane Integer =: — 1-1, 
begin 
tok pos := yy tokens.token’ pos (t); 
index = Shift ‘reduce vortcet (stare? 


while integer(shift reduce matrix(index)=t) /= tok pos and then 
integer (shi tl wreduce mamta x tice ay /= default 
loop 
index := index + 1; 
end loop; 
return integer (shite reduce macrixi@ndex) mace :, 
end parse lactien, 


-= @FLOr Eecovery SEeure 


procedure handle error is 


temp act len: Ineego x, 
begin 

if yy.error flag -— 3 then. — so) shaft yet, 6c lobbe mero emr. 
if yy.debug then 

put line (“Ayace.yYYParse: Error Kecovery Cllebbers 

yy _tokens.token’ image (yy.input_symbol)); 
end if 
if yy.input_ symbol = yy tokens.end of input then -- don’t discard, 


if yy.debug then 
put lineg@Ayacc.YY¥Parse: Can't discard END VOFVINPUL, gqurting- en 

end if; 

false yy Cokens syntax erren, 

end “lf; 


354 


yy.look_ ahead := true; m= Jeb next Loken 


return; -- and try again... 
end 11; 
Pi yVecrroOret lag ~= U-then == brand: new ierror 
VVErrvoOr oo Syntax Peron); 
end if; 
Vy-error tlag <= 3, 


—-- find state on stack where error is a valid shift -- 


if yy.debug then 
pute inet Avace.1¥Parse- Looking Tor state with ‘error, as valid shiitt”); 
end if; 


loop 
if yy.debug then 
PUG lane Avyace .YYParse! Examining State ~"& 
yy -parse state’ image (yy.state stack (yy.tos))); 
end if; 
GemMp acl iont: = sparse action(yy.state stack(yy.tos), exrox); 


Bie cemp sect Gnu -sVV.tirse Shitt entry then 


VV.bOSs == yy.cos + 1; 
Vy State Stack(yy.tos) := temp action, 
exit; 

end if; 


Decrement “Slack, Pointe: 
begin 
VV. SOS: =. VYVY.tos = 1; 
exception 
when Constraint Error => 
VyV.tos := 0; 
end Decrement Stack Pointer; 


if yy.tos = 0 then 
if yy.debug then 
PUG line (“Avacc. ~ 1irarse Error recovery popped entire stack, aborting..." ); 
end if; 
Madsen yy LOXKenS-Syntax error; 
end if; 
end loop; 


if yy.debug then 
put_line(“Ayacc.YYParse: Shifted error token in state “ & 
yy.parse state’ image(yy.state stack({yy.tos))); 
end if; 


end handlererror, 


== prive. cebugqqing Intormacion fer a shitt operation 


procedure shift debug(state id: yy.parse state; lexeme: yy tokens.token) is 
begin 
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put _line(“Ayaec.YYParse: Shwie ~S yy: parse state Aahagqetseareura, 


&” on input symbol “& 
yy_tokens.token’ image (lexeme) ); 
end; 
-- print debugging information for a reduce operation 
procedure reduce debug(rule id: rule; state id: yy.parse state) is 
begin 
put line (“Ayace. YyParse: Reduce byerule seule amage (eu lemra, 
&” goto state “& 
VY -ParSeestdee Image (stake wrage, 
end; 
-- make the parser believe that 3 valid shifts have occured. 
-- used for error recovery. 
procedure yyerrok is 
begin 
yy-.error flag := 0; 
end yyerrok; 
-- called to clear input symbol that caused an error. 
procedure yyclearin is 
begin 
-- yy.input_symbol := yylex; 
yy-look_ahead := true; 
end yyclearin; 
begin 
-- initialize by pushing state O and getting the first input™symeol 
Vy- State stackiiyy Eos). — 70, 
loop 
yy.index := shift reduce offset (yy.state stack(yy.tos)); 
if integer(shift_reduce matrix(yy.index).t) = yy.default then 
yy-action := integer (shift reduce matrax|yyaindex) deme 
else 


if “yy -leok ahead then 


yy-look_ahead := false; 
yy-input symbol := yylex; 
end 1; 


Vy action 7— 
Parse action(yy-state stack(yy-tos) yy  npuceswioel)s, 
end 21; 


if yy.action >= yy.fixrst shift entry then |" .shie7 
if yy.debug then 
shafetdebug (yy a@clion,. yy -oput (symbol), 
end sat 
-- Enter new state 


yer cos := yy2tos + 1; 
yy-state stack(yy.tos) := yy.action; 
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yy-.value stack(yy.tos) := yylval; 


Poy voomeaae i Lagmn athe &-— Indicate: a valid shitt 
VV nerreOorat lad G:= yyw.error flag .— 1; 
end if; 


-~- Advance lookahead 
yy.look ahead := true; 


elstiw yy. acti1on —syy.crror code then == Eenon 
handle error, 


elsiigyy-action = yy. accepe (code then 
if yy.debug then 
PUuLmline (Avyace. 1¥Parse: Accepting Grammar... "); 
end if; 
exit; 


else -- Reduce Action 


—— Convert action into a rule 
Vy, culled i= =e" vy. action, 


—— Execute User Action 
== USeredecelon(yy. cule “id, 
ease yy. rulesid.1s 


when 1 => 
—-#line 358 
Paeme rogram := Empty Psdl Program; 


when 3 => 
—--#line 366 
Ehe component ptr := new PSDL COMPONENT; 


when 4 => 


--#line 369 
--/* the created object should always be constrained ey: 
--/* since object is a record with discriminants. al f 


the Conponent ker <= 
new Psdl Component 
(Category => Component Category (The Component), 
Granularity => Component Granularity (The Component) ); 


The Component Ptr.all := The Component; 
Bind Program (Name (The Component), 

The Component Ptr, 

The Program); 


when 8 => 
—--#line 401 


2D 


yvval := (Token Category => Pedi Td Stiing, 
Psdl Id Value => The To’ token), 
The Operation Map := Empty Operation Map; 


when 9 => 
--#line 408 


-- construct the psdl type using global variables 

—-- psdl component record fields that have default values 
-- are passed as in out parameters, so that after 

-- building tha component, they are initialized 

—-- back to their default values. 


Bulla weed ety pet 

yy.value_ stack(yy.tos-2) .Psdl Id Value, 
The Ada NAme, 
Ties Model? 
The Datarotaucture, 
The Operde irom Map, 
Thewiypescenalaz, 
The Keywords, 
The Deseriprion, 
The Axioms, 
fs Atomic, fype, 
The Component) ; 


when 11 => 
—--¥line 440 


Type Decl stack rko-Pusn( lhe Wl yeeuwpec moe adc, 
Empty Type Declaration); 
Type Spec Gen Par := TRUE; 


when 12 => 
--#line 447 
Type Decl Stack Pkg. Pop( Theyre wvec! stack, 


pRe Dt yoo Gen rar), 
Type Spec Gen Par <= FALSE; 


Type Decl Stack _Pkg.Push(The Type Decl Stack, 
Empty Type Declaration); 


when 15 => 
—--#line 464 


BRIS) 


Type Decl Stack Pkg.Pop(The Type Decl Stack, 


The Medel); 
when 17 => 
—--#line 476 
thes Op Ptr .= new Operator; 
when 18 => 
—-fline 479 
yyval := (Token Category => Psdi_Id String, 


Psdllid Value,” —> The 1d. Toren); 
—-- create a new operator(composite) to put in ops map 
-- make it composite because we don’t know what 
—— ther Granularity 1S at “this point. 


The Op. Ptr s= new Operator (Category => Pedi Operator, 
Granularity => Composite) ; 


when 19 => 
--#line 491 


Bulle Psd lwOperacor 

yy value stack(yy.tos-1) .Psdl Id Value, 

The Ada Name, 

The Gen_Par, 

The Keywords, 

The Description, 

The Axioms, 

The Input, 

The Ovuepurc, 

The State, 

The Initial Expression, 

The Exceptions, 

The specitied Met, 

The Graph, 

The streams, 

ThevTimers, 

The Trigger, 

The. Bxec. Guard, 

The Out Guard, 

The Excep Trigger, 

the. Timery Op; 

Theltber, 

The Fw, 

The Mcp, 

ThesMrt, 

Te impel Vese,; 

le VAConTG  —> False, 

ThesOp © = NemOperakor) > 
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The Op Ptr.al i=] therOreratcn, 
Bind. Opewacde as: 
Vy .value stack{yy-tos-1) -2csdi la value, 
The Oper tr, 
The Operation Map), 


yyval := (Token Category => Psdl Id String, 
Psdl Id Value => The Id = Token); 


when 22 = 
--#line 539 


== CONStTIUGCE Che; psdl cperator 
== using the global variables 
Build Psdi Operator, 
yy-value stack (yy.tos-2).Psdl TdvvVaiue, 
The Ada Name, 
tnesGenge an, 
The Keywords, 
The Deseription, 
The Axioms, 
The -Inpuc, 
The seutpuc, 
Tihewstace, 
The Initial expression, 
[hep ixecept tons, 
the specified Mee, 
The Graph, 
The  Streans, 
ie wlimers, 
The lrigger, 
The Exec Guard, 
The euctsGuand, 
TRESEXCep Trigger, 
tive li ime Op, 
Piemeer, 
The Fw, 
The Mcp, 
ine 2 Misc, 
The Impl Desc, 
fsehEomic. Cperacer, 
The Component); 


when 26 => 
--#line 589 


Type_Decl Stack_Pkg.Push(The Type Decl Stack, 
Empty Type Declaration) ; 
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when 27 => 
--#line 595 


TypeubecleStackerPko. Pop (The Type Decl Stack, 
TherGens Par): 


when 28 => 
--#line 602 


Type Decl Stack Pko.FPush(The Type Decl Stack, 
Empty Type Declaration) ; 


when 29 => 
--#line 609 


type Pecl stack PRO. Pop (ihe. Type Decl Stack, 
ThesTnpuc) ; 


when 30 => 
--#line 616 


Type Decl Stack Pkg.Push(The Type Decl Stack, 
Empty Type: Declaration); 


when 31 => 
--#line 622 


Type Decl Stack -FPkg.Fop(the Type Decl Stack, 
The Output); 


when 32 => 
~-#line 629 


Type Vecliesuack Pkg rush (The Type Decl Stack, 
Empty Type Declaration) ; 
la Seq Pko Empty (The 14a Seq); 
=~ -enpty 20 Seq, EOuuse wath anity map 


when 33 => 
-~~#line 637 


Type Decl Stack Pkg.Pop(The Type Decl Stack, 
Piiewse ate), 

Thesinite Map Id Seq <= The id seq; 

== NOolG@-=the ad's Lor init map. 
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when 34 => 
—-—-#line 647 


Init Exp Seq Stack Pkg.Push (The Init Exp Seq seeack, 
Empty Exp Seq); 
The Expression String =— Expression (A pouerings bmer ye 


when 35 => 
--#line 655 
Init Exp Seq Stack Pkq.Popi(The Init ExpiSequctacn, 
Thew inte sexes sea 
Bind  tnattaeotate (Themorae-, 


the init expr Seq, 
The initial se xeression),, 


when 36 => 
--#line 665 
ide Sec Pkg Enpey lines! de sec iy 
when 3/7 => 
=—— Line eo 
Id_ Set_Pkg.Assign(The Exceptions, The Id Set); 
when 38 => 
-~-fline 678 
The Specified Met := 
yy.value_stack (yy.tos) .Integer Value; 
when 41 => 
--$#line 695 
The Id .see. — inet velcmoce, 
when 42 => 
->*fline 706 
The _ Expression String :— The Expression String = s) )- 
Id_ Set Stack Pkg. Push(The td Set Stack, The fd See), 
when 43 => 


—-#line 706 


Type_ Decl Stack Pkg.Pop(The Type Deel Stack, 
Tempe iypenvect), 


=--/* Bind each id in id the id set to the type name 
--/* in the internal stack($5), return temp type decl 
Bind Type Declaration ( 
Taesetrstack Pkq. Top (rhe ld Set stack), 


yy -value_stack (yy.tos) .Type Name Value, 
temp, Type Decl); 


Type Decl Stack Pkg.Push(The Type Decl Stack, 
Temp Type Decl), 


--/* pop the stack after bind */ 


Id Set Stack Pkg.Pop(The Id Set _ Stack); 


when 44 => 
--#line 729 


Wyval-:= (Token Category => Psdl Id String, 
Psdl Id Value => The_Id_ Token); 
The expression Strings: —-“ihe Expression String & 7) 
& Expression (Thesid  roken); 
when 45 => 


—--#line 738 


Type WecissStack Pko. Push (The Type Decl Stack, 
Empty Type Declaration) ; 


The Expression String += The Expression String & “ [; 


when 46 => 
—-#line 746 


The Type Name New Type Name Record; 
The Type Name.Name = 

yy .value stack(yy.tos—3) .Psdl Id Value; 
The. Type Name .Gen Par 


= ype Decl Steck Pkg .Top (the Type Decl Staci); 


yyval := (Token Category => Type Name String, 
Type Name Value => The Type Name), 
Type Decl Stack Pkg.Pop(The Type Decl Stack) ; 


when 47 => 
--#line 758 
The -BxXpression String t= ihe Expression String & ~) “; 
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af 
5S 


-- this an awkward way of working around the 
—-- problem we get when we have two identifiers 
—-- one after another 
if lype Preece cene var sand 
not Id Set Pkg.Member (The Prev_Id Token, 
The ldusec) then 
Tiecwly oe .Name nw: — 
New Type Name Record’ (The Prev _ Id Token, 
Empty Type Declaration); 
The Expression String ==) ) ine Expressions Se. ig ces sn 
& Expression There tevaldmloken):, 
else 
Thetlype. Nene. — 
New Type Name Record’ (The Id Token, 
Empty Type Declaration) ; 
The Expression String := The Expression String | & 
& Expression (lanes taricken),, 


“A WV 


end if; 


yyval := (Token Category => Type Name String, 
Type Name Value => The _ Type Name); 


when 49 => 
--#line 793 
The Expression String := The Expression String & ™, F 


when S50 => 
—--#line 796 


id Sete kg-Add (The id Token, [het ldioet),; 


The String := The String & “,” & The _Id Token; 
id Seq Pka- Add (The tduteken, slueuldsseq 
The Expression String := The Expression String & “™ ™ 


& Expression(The Id Token) ; 


when 51 => 
—--#line 805 


Id_ Set _Pkg.Add(The Id Token, The Id Set); 


The String := The Id Token; 
Id_ Seq Pkg.Add(The Id Token, The Id Seq); 
The Expression String -— The express on oer ices me 


& Expression(The Id Token); 
when 55 => 
--$line . 32e 


Id_Set_Pkg.Empty (The Id Set); 
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when So. —-> 
--#line 833 


Id vSet Pko- Assign (ThevKeywords, The id Set); 
when 57 => 
pakiine.. 83 7 
The Keywords := Empty _Id_Set, 


when 58 => 
--#line 843 


II 


ihe Deseription The Text Token, 
The Impl Desc s= The Text Token; 


when 60 => 
—--#line 853 


The Axioms:= The Text_Token; 


when 62 => 


--#line 862 
PssAtomi co lype -= True; 
The Ada Name := Ada _ Id(The_ Id Token) ; 


when 64 => 
—--#line 871 


Is Atomic Type := False; 
The Data Structure: {= 
yy .-value_ stack (yy.tos) .Type Name Value; 


when 66 => 
——Fline (863 
The Op Ptr := New Operator; 


when 67 => 


--f#line 886 

yyval := (Token Category => Psdl Id String, 
Psd] Id Value =7 The Id Token); 

when 68 = 

--#line 891 


-- add implementation part to the operator 
Add Op Impl _To_Op_ Map ( 
yy -value stack (yy. tos—1).Psdiluicaaiue, 
The Ada Name, 
Is Atomic Operator, 
The Operation Map, 
The Graph, 
Theystreamsc, 
Tes tame ts, 
The Tyiggeu, 
Theshxee.Guadci, 
The Out Guard, 
the Excep trigger, 
The Tamer op, 
The geen, 
The Fw, 
The Mcp, 
Therein, 
The Impl Desc ); 


when 70 => 


--#line 917 
Is Atomic Operator := True; 
The Ada Name := Ada Id(The Id Token); 


when 72 => 
—--#line 925 


Ispetomic  Operavor 7; - hatce, 
when 74 => 
==4 liner 22934 
The Impl Dese ).— Empty. lex, 
when 76 => 
—-#line 942 


The Graph := Empty Psdl Graph; 


when 78 => 


--#line 950 
The Graph <= Psdil Grapheekaq. Addi Vereen 
yy -value_stack(yy.tos-1) .Psdl Id Value, 


The Graph, 
yy-value_stack(yy.tos) .Integer Value); 


when 80 => 
=f line ool 
The Edge Name := The Id Token; 
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in the 


operation map 


when 81 => 
--#line 964 


The Graph := Psdl Graph_Pkg.Add_ Edge ( 
yy.value_ stack(yy.tos-—2) .Psdl Id Value, 


yy.value stack(yy.tos) .Psdl Id Value, 
The Edge Name, 
The Graph, 


Vuewalue stackiyy.tos-3) Integer Value), 


when 83 => 


--#line 978 
yyval := (Token Category => Psdl_ Id String, 
Pedi lacy alue => The Id Token); 


when 84 => 
--#line 984 


Yyvel := ( Teken Category => Psdlil Id String, 
Psdl_ Id Value => 
Vyavalue stack (yy-tos—l1).Psdl Id Value 
& 
yy-value stack (yy.tos) .Psdl Id Value ); 


when 85 => 
——#line 993 
Thesstring «= Psdl Id(A-Strings.Empty); 


when 86 => 


poise 1996 
yyval := ( Token Category => Psdl Id String, 
Psdlvida Value => ~(" & The -Sering); 
Thesstrang 2= Psdl Ja(A Strings. Empty); 


when 87 => 
--#line 1004 


yyval := ( Token Category => Psdl Id String, 
Psdl_ Id Value => 
Vyovalue stack (yy.tos—3).Psdl Id Value 
Go i) “Ce-sl he string 6.0)" ); 
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when 88 => 
--#line 1010 


yyval := ( Token Category => Psdl ldystring, 


Psd] Id Value => Psdl Ild(A Strings Empey) ); 


when > 
—--f#fline 1026 


yyval := (Token @avegor, )—- integer ittera, 
Integer Value => 
yy-value_ stack (yy.tos) .Integer Value); 


when G92 => 
—-#line 1031 


yyval:= (Token Category => Integer Literal, 
Integer Value => 0); 
when 93 => 


--#line 1038 


Type Decl Stack Pko- Push (ine: Type PeciIestack, 
Empty Type Declaration) ; 


when 94 \=> 
——f line olos4 


Type Decl Stack Pkg.Pop(The Type Decl istack, 
The vse reams); 


when 96 => 
--#line 1059 


id Setmerg Empty (The siduce.): 


when 97 => 
--#line 1064 


Id Set Pkg.Assign(The Timers, The Id Set); 


when 98 => 
--#line 1068 


id Set _Pkg.Assign(The Timers, Empty vduscer), 
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99 
—-#line 


when = 
17 7 


The Operator Name 
ine She ioge:. 

Tiel rer 

The Fw 

ThestMcp 

The Mre 

The _Exec Guard 
The Out Guard 

ine Excep Trigger 
The Timex Op 


when 101 => 
--#line 1094 
[The Operator Name <== 
when 103 => 
—-#line 1102 
The Operator Name := 
when 105 => 
e-tiline “1113 
The Id Set := 
ine Expression. String 
The Outputuld.Op 
when 106 => 
=e#line 1120 
thie Expression String 
when 107 => 
==trine 1125 
== Begin Expansion “Of 
declare 


procedure Loop Body (Id 


begin 


The SOucpuc. ld.stream 


The sid token, 

Empty Trigger Map, 

Empty Timing Map; 

Empty Timing Map; 
ENpLy fi ming Map; 

Empty Timing Map; 

Empty Exec Guard Map; 
Empty Out Guard Map; 
Empty Excep Trigger Map; 
Empty Timer Op Map; 


The la Token; 


The Id Token; 


Empty ld Set, 


= 
—_— 


tl 


The Operator Name; 


Foreach Loop Macro. 
Psdl Id) as 


Las 


Bind Out Guard(The Output Id, 
Ene BXOress TON String, 
The Out Guarda ); 
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Expression (A Strings: Bmpty); 


Expression (/ Serings .Bmpty); 


end Loop Body; 
procedure Execute _Loop is 
new Id Set Pkg.Generic Scan(Loop Body); 
begin 
Execute Loop(The Id Set); 
end; 


when 108 => 
--#line 1146 


yyval := (Token Category => Psdl Id String, 
Psdl id Value => Theslagioken); 
The Expression String := Expression(A Strings.Empty) ; 


when 109 => 
--#line 1153 


The, Excep id-Op := The Operator Name; 
The Excep Id.Excep := 
yy-value stack(yy.tos-2) .Psdl Id Value; 
Bine@e Excepe! rigger 4 ThesExcepmica, 
Thes Expressions soering, 
Die ExXGcep wala gens: 


when 110 => 
--#line 1162 


yyval := (Token Category => Psdl Id String, 
Psdl_ Id Value => The Id Token); 
The Expression String := Expression(A Strings.Empty) ; 


when ile 
--#line 1169 


The Timer Op Record Op id = 
yy-value stack (yy.tos—4) .Timer Op Id Value; 
The Timex "Op Recorde ime 2 lees: — 
Vy -Value Stack (yy-tos=2) -Psdleidivalue- 
The Timer Op Kecerd- Guard >= The Expression string; 


Timer Op Set Pkg.Add (The Timer Op Record, 
Thev Timer jOpysery, 
Bind Timer Op(The Operator Name, 
The Timer Op Set, 
ie shame ta Oe a. 


when lis = 
--#line 1186 
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The Expression String := Expression(A_ Strings 


when 114 => 
--#line 1191 


Bind Exec Guard(The Operator Name, 


The Expression String, 
The Exec Guard): 


when 116 => 
-~-#line 1202 
The Id Set := Empty _Id_ Set; 


when Lig a=> 
-—-#line 1207 


i 


The ilrigger Kecord.1t By All; 


The Trigger Record.,streams ;= [he la Set; 


Bind Trigger (The Operator Name, 
hie 22 ergger Record, 
Poe reeage |. 


when 118 => 
—--#line 1217 


inhestdsSets:= Empty Id. Sev; 


when o> 
—--#line 1222 


mec leigger Record. ft := By Some; 
ThevTrigger. Record ..Streams °:= The Jd Set; 
Bind Tragger (The Operator Name, 

Ties raqger mecord, 

Ther lrrgger);, 


when 120 => 
=—aline 2232 
—-- we don’t care what is in the id set 
tne Trigger —kecord.. Tt >= None; 
The Trigger Record.Streams := The Id Set; 
Bind Trigger(The Operator Name, 
Ine “Trigger Record, 
ee Pegs ia)a; 


oy 


SEMDEY: 2; 


when 121 => 
—-—#line 1245 


Bind Timing (The Operator Name, 
yy value =stack (yy, tos) integer value, 
The Per); 
when 123 => 
--#line 1257 
Bind Timing (The Operator Name, 
yy value _stack(yy.tos-1l) .Integer Value, 
Thewe wa) 
when 125 => 
=-#line 1268 
Bind) Timing (The veperater Name, 
Vy Value stack(yy Tos) integer valuc, 
The Mcp); 
when 127 => 
Sai wilaleis laa 


Bind Timing [he sCperavor Name, 


Vy Value stack (yy tos) integer valuc, 


Themiine)s, 
when 130 => 
~-$line 1295 
yyval := (Token Category =" Timer Oputd String, 


Timer Opeld Value => Reset) ; 


when 131i => 
~~#line 1302 


yyval := (Token Category =—7 lime e (Ope la gce ring, 
fimer Cp id Value => Stare); 


when 132 => 
—~#line 1309 


ey oy 


yyval := (Token Category => Timer Op Id String, 
Timer, Op id) Value => Stop), 


when Ie le ee 
--#line 1335 


The Expression String := Expression(A Strings.Empty) ; 


when 136 => 
--#line 1340 


itieehpuseg stack Pk¢q «rep (The Init. Exp Seq Stack, 
Temp init Expr Seq); 
Exp Seq Pkg.Add ( 
yy .value_ stack (yy.tos) .Expression Value, 
Temp inact Expr Seq); 
iat bxp Seq Stace ko- Fuso (ihe init Exp Seq, Stack, 
Temp init Expr Seq); 


when 137 => 
--#line 1350 


The Expression String := Expression(A Strings.Empty) ; 


when 138 => 
--#line 1355 


InitGebxp Seq Stack Pra.Pop (The Init Exp Seq Stack, 
Temp init Expr. Seq); 
Exe Seq Pkq.Add ( 
Yy-evaiue stack (yy:.tos) .Expression Value, 
Tempo init Expr Seq), 
Ine Exp seq Stack Pko.FushitThe Inic Exp Seq Stack, 
Temp fini’ Expr, Seq); 


when 139 => 
--#line 1381 


yyval := (Token Category =" EXpression String, 
Expression Value => To At “True”)); 


when 140 => 
--#line 1388 


yyval := (Token Category => Expression String, 
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Expression Value => To A( “False”)); 


when 141 => 
--#line 1395 


yyval :> (Token Cavegeory => Expression String, 
Expression Value => Expression(The_ Integer Token) ); 


when 142 => 
—-#line 1401 


yyval := (Token Category =, EXPression soe eing, 
Expression Value => The Real Token); 


when 143 => 
--#line 1407 


yyval := (Token Category => EXPression string, 
Expression Value => The String Token); 


when 144 => 
--#line 1413 


yyval := (Token Category =- —EXpression string, 
Expression Value => Expression(The Id Token)); 


when 145 => 


--#line 1423 


The, Expression otring '— the Expression st ring sees a3 
BXpresicion( Iheelaaroken), 


yyval := (Token Category =" BXpression oer ing, 
Expression Value => The Expression String); 


when 146 => 
--#line 1431 


yyval := (Token Category =7 EXPECSSICn oc ring, 
Expression Value => The Expression String & “.” 
& Expression (Thesideickon a, 


when 147 =s 
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--#line 1438 


Init Exp Seq Stack Pkg.Push(The Init Exp Seq Stack, 
Empty Exp Seq); 


when 148 => 
—-~#line 1444 


—--/* we remove expression resulted by the */ 
—--/* previous rule, since expression will */ 
= * be weconcatination Of Type. name.ID and */ 

——/~ Value OL previous proauction ae 


Init Exp Seq Stack Pkg.Pop(The Init Exp Seq Stack, 
Temp Init Expr Seq); 


The Expression String == Expression(A strings. Empty) ; 
SCP shel nD seq or kgq.lengcl (Temp Init expr, seq) loop 
if wigs ie heh 
The Expression String := The Expression String & 
end if; 


The Expression String 25 
The Expression String «& 
Exp seq Pko.Fetchi Temp Init= Expr Seq, 


end, loop: 
EBxpeceds <d-necycelte(lemp Inve Expr Seq). -- throw 7t away 
yyval := (Token Category => Expression String, 


Expression Value => 
VP ewoalue "stack (yy.tos—4) Expression Value & “(™ & 
Mie Ox pLessi on et raing «6 2); 


when 149 => 
--#line 1471 


yyval := (Token Category => Expression String, 
Expression Value => To A(“(“) & 
yy-value stack(yy.tos-1) .Expression Value & 


RO ee 


when 150 => 
—--#line 1480 


Vyvala:— (Token Category => Expression String, 
Expression Value => 
yy value. stack (yy.tos—l)..Expression Value & 


375 


Ww“ 
f 


uw, 
f 


oO 


yy value stack(yy-tos)-Expresstann,y alive), 


when 151 => 
--#line 1487 


yyval := (Token Category => Expression String, 
Expression Value => 
yy -value_stack (yy.tos-1) .Expression Value & 


yy-value_stack(yy.tos) .Expression_ Value) ; 


when 152 => 
--#line 1497 


yyval := (Token Category => Expression String, 
Expression Value => 
yy-value_stack (yy.tos—-2) .Expression Value & 


yy-value_ stack (yy.tos—1) .Expression Value & 
vy value stack (yy. tes) .Expressiongvaluc), 


when 153 => 
--#line 1507 


yyval := (Token Category => EXpression string, 
EXpressioneValves—7) [our a ae 
yy .value Stack (yy.tCos) {Expression Value): 


when 154 => 
--#line 1513 


yyval := (Token Category => Expression String, 
Expression Value => To A(“+”) & 
yy -value_stack (yy.tos) .Expression Value); 


when LS S=> 
-~#line 1522 


yyval := (Token Category => Expression String, 
Expression Value => 
yy -value_stack(yy.tos-Z) .Express#one@value 


yy .value stack(yy-tos—)) Expression Valucrc 
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Vyevaluc stack(yy.tos) -Exapression Value), 


when sts) >: 
--#line 1533 


yyval := (Token Category => Expression String, 
Expression Value => 

yy.value stack (yy.tos-2) .Expression Value & 

yy-value_ stack (yy.tos-1) .Expression Value & 

yy value stack (yy.tos) .Expression Value) ; 


when 157 => 
--#fline 1544 


yyval:—= (Token Category => Expression String, 
Expression Value => 
yy.value_ stack (yy.tos-—2) .Expression Value & 
Deu SE KE 2). 
Wye value “stack (yy.tos) .Expression Value) ; 
when 158 => 
—-#line 1555 


--ExXprceq -kg-Add ( [he Expression String, [he Exp Seq); 


yyval := (Token Category =~ Expression String, 
Expression Value => To A(™“ NOT ™) & 


yy-value stack (yy.tos) .Expression Value) ; 


when 5c > 
--#line 1565 


yyval := (Token Category => Expression String, 
Expression Value => To A(“ NOT “) & 


yy-value_stack (yy.tos) .Expression Value); 


when 160 => 
--#line 1575 


yyval := (Token Category =" —EXpression string, 
Expression Value — > 1c°A(~ AND.™)); 
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when 161 => 
—-#line 1581 


yyval := (Token Category => Expression String, 
EXpression Value —-> ToOviGaeon  ) 


when 162 => 
—--#$line 1587 


yyval := (Token Category => Expression String, 
Expression Value => To_A(“ XOR “)); 


when 163 => 
=-#line 1597 


yyval := (Token Category => Expression String, 
Expression Value” —> To Ai eo) ie 


when 164 => 
--#line 1603 


yyval := (Token Category => Expression String, 
EXpressiona Value -—> Torta jo). 


when 165 => 
—--#fline 1609 


yyval <= (Token Category => Expression String, 
Expression Value => Tova =>). 


when 166 => 
—-#line 1615 


yy val = 9 Token Cacegqory => Expression String, 
Expression Value => To A(~ >=  %)); 


when 167 => 
--#line 1622 


yyval := (Token Category => EXDresslon jotring, 
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Expression Value => To A(™ <= “)); 


when 168 => 
—-#line 1629 


yyval := (Token Category => Expression String, 
Expression Value => To A(“ /= “)); 


when I Se ee — es 
—--—#line 1640 


yyval := (Token Category => Expression String, 
Expression, Value. -—> TolA(™ = ™).); 


when LO == 
—--#line 1646 


Vyval :— (Token Category => Expression String, 
Expression! Value s—> To A(™ = “)); 


when 4171 => 
--#line 1652 


Vy val e-— (Token Category =~ Expression Strang, 
Expression Value => To A(” & ")); 


when ha 
--#line 1661 


Vyval := (Token Category => Expression String, 
Expression Value => TolA(™ + ™)) ; 


when ta 
--#line 1667 


Yyval := (Token Category =7 Expression String, 
EADressiton; Value \-> To At =." )i); 


when Ly 4 SS 
--#line 1673 


S7y 


Vyval ==) (ll okenvcavegor, => Expression String, 
Expression Value => To A(“ MOD ae 


when 175 => 
—-#line 1679 


yyval := (Token Category => Expression String, 
Expression Value => Tork shee, 


when 7 Ca 
--#line 1689 


yyval := (Token Category =) Tavegen maternal, 
Pivege may a rue = 
Vy -Vallie stack (yy-tes—))- Integen Valuc mi 2) hou 
The wiine St rtng .:— 
TorA(integer image ( 
yy .value stack (yy-Cos-1) (integer Value) ees siterocec ar, 


when 177 => 
--#line 1697 


yyval := (Token Category =>) bakege ma baverais, 
Integer Value => 
Vy. value Stackiyvy-tos—)) -ineeger Value), 
The Time String := 
To A(Integer’ Image ( 
yy -value stack{yy.tos—-1) Integer Value is) mcs), 


when 178 => 
—--#line 1705 


yyval  :="(Tokenseategery =" IMbeger Sileer aly 
Iinkeger oy alue => 
yy .value_stack(yy.tos-—l) .Integer Value * 1000); 
Them lamewot esi... — 
lovey Ginkteges: image ( 
yy -value_stack (yy.tos—1) Integer Value) 4) sec); 


when 179 => 
—-#line 1714 


yyval := (Token Category = neege mr idre fay 
Integer Value => 
yy -value_stack(yy.tos-—l) .Integer Value * 60000); 
The Time String := 
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TosA( integer Image ( 
Vyevalue. Stack (yy. tos-l) 2integer Value) 6 


when 180 => 
--#line 1723 
yyval := (Token Category 


Integer Value 


NA 


110 9 aa ed 


=> Integer literal, 


=> 


Wy evalue stack (yy.tos-l) Integer Value * 3600000); 


The Time String 


Re At Iinceger” Image 
yy.value stack(yy.tos—1).Integer Value) & 


181 => 
L734 


when 
--#line 


yyval := 
Integer Value 


182 => 
1746 


when 
—--f#fline 


ihe, Time string 


=> 
lyre 


184 
—--#line 


when 


fier he ese. iG 


1386 


-—-#line 


=> 
Uae etl 


when 


(Token Category 


=o Converter oO Digit (Ihe Integer -Token.5)); 


i 


Ww hrs?) : 


—---enLedger ibiteral, 


Expression (A Strings. Empty); 


Expression(A Strings.Empty) ; 


ine Expression. String <= 


187 => 
Lo 


when 
--#line 


The Expression String := 


188 => 
tee 


when 
--#line 


ne Expucssilonest ring) 7— 


Tie ERP Lesson Ser ing 6 


Pie tJExpression string « 


[ne Expression String & 


Mw“ A ‘ 


Expression(The Integer Token) ; 


38] 


“ TRUE 


* FALSE 


Ww, 


fA 


Wa 


f 


when 139° => 
—--#line 1788 


The Expression String := The Expression String & “ “& 
ihe Time String, 
when 190 => 
—s line.) 8704 
The Expression String := The Expression String & | as 


TRegke alone, 


when 191 => 
--#line 1800 


Ine Expresston, seeing The Expression string: Gear 


TNe Sersng  Oken; 
when 192 => 
—-#line 1806 
The Expression String <= The Expression string 4) = 16 


Expression (The fa Token), 


when 193 => 
—-#line 1814 


The Expression string :— The ExpressioOmmoc ring mews a) os 
Expression (ine iduloken),; 
when 194 => 
—--—# line 1820 
The Expression String := The Expression String 4 3 7 
Expression(The Id @koken); 
when 195 => 
--#line 1826 
The Expression String == Ihe Exprecccicneoe cing es. ies 
when 196 => 
--#line 1829 
The Expression String := The Expression String & ")) | 


Exp _Seq Pkg.Add( The Expression String, The Exp Seq); 


when 197 => 
—-#line 1836 
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AN 


the Expression String ihe ex pres<don ySiring 7& 
when 198 => 

--#line 1839 

the - Expression String 


They expressvon cering & ~) 


when 199 => 
—-#line 1842 


Mie Expression string <= 
the EXpression Strang & 
yy.value stack(yy.tos) .Expression Value; 


when 201 => 
—-#line 1851 


Tie Expression oering “= 
THevExpression String « 
yy.value stack (yy.tos) .Expression Value; 


when 203 => 
--#line 1859 


PicwoxpressiOn String += The Expression. String & “= 


when 205 => 
—-#line 1864 


(pas 


Ww. 


ihe Expression String := The Expression String & “+”; 


when 207 => 
—--#line 18692 


tne Expression String := 
The Expression Sering & 
yy - value stack (yy.tos) .Expression Value; 


when 209 => 
--#line 1877 


ihe ExpressLon string == 
the EXpression String -& 
yy.value_stack(yy.tos) .Expression Value; 


when 211 => 
--#line 1885 


the Expression, String <= 
Piel Oa pressi1 On SEring .&7- exp; 


when 213 => 
-~-#line 1892 
the Expression .scering <= To A{™ NOT); 


f 


when 215 => 
—--#fline 189 
The Express 


end 
end loop 


end yyparse; 


end Parser; 


5 


i16n, String ss= "lor eee s)y 


when others => null; 


end case; 

-- Pop RHS states 
V¥Y.cCoOSs >= yy 
yy-state stack(yy. 


yy-value_ stack (yy. 


if yy.debug then 


and goto next state 


-tos > rude lenge n Gya.) BU cme cl) eet 


tos) := goto state(yy state stack(yy cose 
get lhs rule(yy cule sao 


tos) := yyval; 


reduce debug (yy.rule id, 


GOlCO State (yy.state stack (yy stosmon, 


end if; 


clea 


f 


Geto lis) ruletyy. rutesdy ae, 
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U 


APPENDIX V. PACKAGE PSDL_GOTO 


package Psdl Goto is 
Eype. Smelt Ineeger 2s ranger =s2 1000 «. 32. 000; 
EYDe vGote Entry 1S 7,ecord 
Nenterm = Small Integer; 
Newstate > Small Integer, 
end record; 
—--pragma suppress (index check); 


subtype Row is Integer range -l .. Integer’ Last; 


type Core farse Table 1s array (Row range <>) of Goto Entry; 


Goto (Macrix <= constant Goto Parse Table i 
((-1,-1) == DUMMY ont ry. 
-- State 0 
ie Ce ae gO ra (ear 2) 
-- State alt 
, (-4, 3) 
-- State 2 
-- State 3 
a) 5) 
=—— State 4 
-- State 2 
Pe eo Co ad (Gana 6), 1 =6, 10) 
-- State 6 
-- State fi 
-- State 8 
-- State 9 
-- State LO 
==) otace all 
ol eee de 13 
-- State 12 
aaa a mea 
-- State 13 
pH LO G) 
-- State 14 


pired, b=), 


-- State 15 

pt=lLep 20) 

-- State 16 

p= 22) 

-- State 1/7 

,(-24, 23) 

-- State 18 

piaes, 25) 

== Stare 19 

pA eG 26) 

-- State 20 

pl=2e,. 29) 50 —-Us, ac) 
-- State 21 

» (= 407.734) 

-- State 22 

-- State 23 

(ao Oe) 

~=25, 41) 4 (15, 40) 
-- State 24 

,4=62, 245), 4 -O1p 42) 
Fi =o ao 

-- State 295 

-- State 26 


i (=88 5 46) 7 (395 47), (-177 545 


-- State 27 
pt =Se, AB ap Aol AT) ya a 49) 
-- State 28 
Fea Ganite ra ys) 0) 
-- State 29 
, (-4l, D1) 
-- State 30 
-- State 31 
, (-50, 53) 
-- State 32 
, (-46, 55) 
—-— Seace woo 
p(=277 59%) 
== State aso 
Pe easy eo 
-—-—- State 35 
=o Oe) 
-- State 36 
p(=207 22) 
== Scace “S77 
, (-34, 60) 
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-- State 38 


-- State 39 
p0=4 8; G2) 

-- State 40 
-- State 41 
mise oO, 65) 

-- State 42 
(-58, 67) 

-- State 43 
-- State 44 
—--— State 45 
7 (—-56, 70) 

-- State 46 
-- State A] 
-- State 48 
] (35, te) 

-- State 49 
-- State 50 


Mme ose) (19) 7) (Hoy. 74) 


-- State 51 

-- State 52 

pa — 49> 11) 

-- State 53 

op 7S) 

-- State 54 

-- State 55 

, (7-47, 81) 

-- State 56 

p= 350 5. 28) 

me, 47) Gg. ( 17, 82) 
-- State 5/7 

piso, 28), (-37, 47) 
pial; 83) 

-- State 58 

meso, 46), (=37/, 41), (-17, 84) 
-- State 59 

peaSe 2G) 4-3 fo ee ig (= 7) 85) 
-- State 60 

pil-3so, 86) 

-- State 61 

-- State 62 
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(= 5 oo CO) 


-- State 63 
—-- State 64 
’ (S37 89) 
-- State 65 
-- State 66 
-- State 67 
’ (=32, a2) 
-- State 68 
f (=63, 23) 
—-- State 69 
,(-54, 94) 
-- State 70 
-- State eal 
ris Cy Cup oe) 
-- State V2 
—- State 73 
-- State 74 
-- State 75 
-- State 76 
, (-42, 101) 
-- State 77 
== State 78 
, (=52, 104) 
-- State 79 
-- State 80 
-- State 81 
—--—- State 82 
—-- State 83 
-- State 84 
-- State 85 
joe Sle oo) 
-- State 86 
-- State 87 
7 C=O Fe a — 30 


-- State 


88 


-- State 89 
--— State 90 
-- State 91 
, (-74, 111) 
-- State 92 
= 60;. 113) 
-- State 93 
pi o4, 21:4) 
-- State 94 
-- State 95 
-- State 96 
—— State 977 
pt—3 9, (Lit) 
-- State 98 
maa, 118) 
-- State 99 
-- State 100 
-- State Od 
, (=38, 48) ? (=37, 
Mate po 220) 
-- State a Lae he 
-=_otate. 103 
-- State 104 
-- State 105 
-- State 106 
-- State LOU 
-- State 108 
-- State 109 
-- State PLO 


? (=33, 48) ? Casa, 


—--— State 


he it 


-- State 


—-- State 


aes 


dene) 


puaods 131) 


—-- State 


114 


47) 


CTT a esl ONS 


P23) 


Ww 
— 


—— State 


bales) 


, (-65, 134) 


-- State 


-- State 


iis 


ipl 


, (-40, 135) 


-- State 118 
--— State 119 
-- State 120 
; (=-43, 138) 

--— State ial 
-- State 12 
-- State VZ5 
--— State 124 
-- State 125 
--— State 126 
--— State 27 
-- State ees 
—-- State 129 
-- State 136 


; (io eae) 


-- State iS ah 
—-- State 132 
-- State alge e' 
--— State 134 
, (-66, 146) 

-- State 135 
—- State 136 
-- State 137 


plaza, 147) 


-- State 


-- State 


NBS: 


39 


, <—33 9 148) 


—-- State 


140 


390) 


mo=99, 151); (-33; 


-- State 141 
-- State 142 
-- State 143 
mao) 154) 
-- State 144 
’ (= 70; kD) ’ (26>; 
-- State a5 
moe LO OF) 
mi 50, 157} 
-- State 146 
-- State 147 
-- State 148 
-- State 149 
miae Ss, 158) 
-- State liga 26. 
-- State eS: 


, (-98, 168), (-40, 


-- State de 
-- State os 
-- State 154 
Ga oo, 175) 
-- State 155 
-- State 156 
-- State 157 
-- State 158 
-- State ilps ye 
-- State 160 
-- State 161 
-- State 162 
-- State 163 
-- State 164 
-- State os 
’ (=41, a1) 

-- State 166 


39] 


—— ot atenm 16 

pile oie ys) 

, (-40, 166) 

== ~Seate e166 

, (=106, 199), (=105, 195), (1047s) 
7p C—O; 196) 

——eStace —lo? 

9 oe) 20) a 40 ea) 
=——- State 170 

pi=26, 202) 

, (-40, 166) 

=~ Stave. 7 i 

pila 28,0 202) 20, leas) 
=-— State 1/2 

plo BG 204) 

7-407 Ge) 

-- State 173 


-- State 174 
,t=S4,, 206) 
-—- State alee ee 
-- State JLRS 
pa. 203) 
pols 57 2d) 
=— State iy 
-- State 178 
-- State Wye) 
, (7-106, 199) 

7 Gale, To KH LO 4) 2 oo 
—-- State 180 
-- State 181 
-- State ilns9” 
—-— State 183 
-- State 184 
—-—- State 185 
-- State 186 
—-- State 187 
-- State 188 


==" State — iso 


-- State 190 


Se 


-- State 191 


== State, 192 


-- State 193 


—-- State 194 


—— State 5 


= State - 196 
= 2 O35. 213) 


——- State 197 
meee 21 4)7.(—40, 166) 
=—- State 198 
,(-98, 215), (-40, 166) 


-swouate «199 
7-98, 216), (-40, 166) 
-— State 200 
Miao ld) (40,166) 


-- State 2 Oe) 
p= 106, 199), (-105, 198), (-104, 197), (-102, 


Saeco cace 202 


-- State 203 
, (-106, 199), (-105, 198), (-104, 197), (-102, 


-- State 204 
Gece loo) —1 Oo, 193) (=104, 1297), C102, 


== State 205 
Pt=i iso 218) 
-- State 206 
,(-78, 220) 
——woycaie. 201 


-- State 208 


-— socate 209 

pm 127 222) 

pac ate. 210 

Pt hOG, 199) 

moO. 198)>(-104, 197),  (-102, 196) 
=— Stace | 211 

me 1.00 272223) 


= Stare, ~“2izZ 


-- State 243 
Pti— oo, (224), 1-40, 66) 


L'6) 


196) 


7G) 


i175) 


——- states 214 

pL =106,, 199), (=105s, 193) 
7, (=O 450 7) fH L02, 1s) 
——eoeacewrc lS 

, t= 10652 So) (— LOS uss) 
, (=104, 197), (-102, 196) 
SS eat eee 

Pe ONS LSS ian eau Lhe) 
Ae Gl AO PL) Yi Oe ENS 
=—— State 217 

pi alOG, 9199) 4 (-105, 2198) 
pe Oey ) LO 2 iG) 
== TSEaAce wc is 

PI 9 sin 28) 

oie Geen 

pl=o2 5 225) 


-- State 220 
FA) oe oO) 
—= State 221 
pees 2514) 
-= "State “222 


== State 223 


== State 224 

pa GC Be Oo les) 
p= ee eS i - 16 2 eG) 
-= State 225 

, aie, 254) 

== Stave mae o 

Ye a 2 on 


ee ie tee PRELT 


-—- State 228 
pies, 257) 


—-- State 229 
PAH Od, Od) 4 —3 Gye 23) 


—-—- State 230 
-- State 231 


==) Stace wzs2 

7 lH 24a (357 6208) 
== Stace. 2s 

, (-101, 242) 


=— state 129234 
pi(~b0, e243) 
=— State = 250 
p (= Saye 244) 
—= Stace. 256 
pil=5 oe aon) 
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-- State 


Zod 


Meo pee 4 fy 


-- State 238 
mic—-26),- 245) 

-- State 239 
-- State 240 
mi=o 1, 251) 

--— State 2a 
-- State 242 


moo, LOL) se, 


-- State 243 

-- State 244 

-- State 245 

-- State 246 

A SOIC ks ies @ Oh We a = a ar 
,(-36, 258) 

-- State 247 

-- State 248 

-—- State 249 


mes, VO), =3 6, 


-- State 250 
-- State 251 
Pee OG, a 2) yee; 
-- State 252 
-- State 253 
-- State 254 


mie O, 2i2)4 (—-S2, 


-—--— State 


--— State 


-- State 


-- State 


-- State 


-- State 


==) otate 
4 bp Sd) 


255 


Zoo 


Zo 


296 


29 


260 


261 


293) 


264), (-40, 


210) 


274) 


276) 


—-- State Zo2 


== State wz oo 

pleats eZ So) 

-- State 264 

7 t=106, 282) (-10s 7261) 
, €=104, 260), (=102,, 239) 
-- State 265 

, (elle, 264) 

=— State 266 

piel > cao) 


——— State weco! 
7 t(-h2l yeas) 
=-- State 268 
pila toc eo) 
=~ ota eeuac 


== State 92/0 

FP tae Oca) 

Sia eee wee. | 

pia o7 Le?) 

plo Oyunc oo) 

== States 2/2 

Ca TOF 7 BOF ails G,. 290) 
-- State 273 


-- State 274 
-- State 275 


-- State 276 
, (=83, 292) 


--— State 258 


== State. 2/8 
plHlOg, 107), 1-877. 294), (—-40, 262) 9a 3G, oe) 


== Stabe =274 
Pe Ce ey) 
-- State 280 
pl=-L1s, "236) 
-- State 281 
pl=lLbs 7 8237) 
-- State 282 
, (1 eee 


-- State 283 

pl =20 20299) 

-- State 284 

pl=10 7, 7107), (—-87, 30C) 41-40 2262) 
,(=36,0-253) 

== (Stabe wecoo 

pill Ole) - 38174501) 40 27) 
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! [—o6, fa 
=—— ptate 
a Oy, 

io 6, 2c 
-=- State 
plea lOy, 

a Cis 2 
--— State 


——sotate 
pl=26,- 3 
== cate 
Pt=—26, 3 
eta Lle 


-- State 
S(—-90, 3 


== oLate 
ACD 
=—— State 
pt UO; 
nae Oe, 
—-- State 
pa -107, 
po Oy 2 
== state 
rl aa Ot ae 
PRs lO, 2 
= state 
Ol, 
Wiss 0, 2 
-- State 
ee) 
a= Og 2 
=—- State 
pr=l07,; 
pl So, <2 
== Sctacte 
f= 6. 
pia Oe | 
=—— State 
fie UO; 
, (-102, 
-- State 
~t=—106, 
7 | aa DS ame 
~—2ovate 
, (-106, 
Meet OZ, 
== State 


-- State 


-- State 


58) 
286 
poly) 
58) 
287 
LOT: 
58) 
288 


Ze 
04) 

290 
G>:) 

Zot 


2a 
£2) 


293 
313) 
294 
282 ).3 
279) 
295 
Leas 
58) 
256 
LO, 
58) 
257 
107), 
58) 
298 
een ee 
58) 
299 
Homa 
58) 
300 
282), 
279) 
S01 
282) \, 
279) 
302 
282), 
279) 
303 
282), 
279) 
304 


50:5 


306 


(=87, 


(=8 77 


Zoli 


(=165, 


(=105;; 


Ca105, 


C=205, 


B02), (=40, 


S03)4°(—40, 


262) 


262) 


26) a (04,7 28 0) 


SiS pina, 
316), (-40, 
317), (-40, 
318), (-40, 
cial ec lolr 


262) 


262) 


202) 


262) 


262) 


2561) (—104, 280) 


201) 4-045 250) 


281), (=104, 280) 


261)7,.(-L04,. 250) 
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-- State 307 


--— State 308 


--— State 309 


-— State S150) 
Fed Gas) 5) Ades 2101) 
—-- State 311 


-- State 312 


--— State 313 


—-—- State 314 


-- State 315 
oo (- OG, 2625 (-105, 251) 
7, (=04 280) (-102 es 2) 
-—- State 316 
pte NOC ze 2), (105, 261) 
~ (104, .238 0). (OZ 20) 
-—- State 317 
,(- LOG, 282)5(-105 eo 
~(=104, 2380), (-102,2279) 
-- State 318 
pt — Clog Zee) OS eee 
p= 04... 250) 71-102, 279) 
-- State 319 
7 (=106,..262),.4-L05,2s) 
p(=104, 230), (=L02,.- 292) 


-- State 320 
, (=35,- 324) 
——otace S22) 


Palos oiar3)) 


-——- State 322 
Pie Gass pam s a oy 
—= State 323 
7 See? SS 28) 
-- State 324 


-— State 325 
, (-89, 329) 
-- State 326 
7 1(=89, 330) 


-- State 327 
‘(Silo Seca 106 nasa 


-- State 328 
, (=667 355) 
-- State 329 


,4=20,, S320 


398 


-- State S50 
pul —20y 335) 
-- State Sion! 


-- State 332 

mins? CLOW We GO SS oy 1-40, 262) 
pio 6,° 258) 

-- State 333 

mc —bOy,. 107) (=e, 339), (—40,, 262) 
Pa=36,). 258) 

-——- State 334 


-- State 335 


-- State 336 
P= 109> 340) 
-- State SEC) 


-- State 338 

MiG, -2e2),(-105, 261) 

m0 4 260), (-102,, 279) 

== State 339 

me OG, 6282), (=105,.°261) 

met O PEO 102,. 27 9) 7-256; 2341) 
-- State 340 

7c —lO7T, 107) 

PG, G42), (—-407--202) ,(-s6, 25s) 
== State 34] 


-- State 342 
, (-106, 282) 
meus, 281), (-1Od, 260) -{—-102, 279) 
)i 
-- The offset vector 
GOTO OFFSET: array (0.. 342) of Integer := 
( 0, 
Cee Oy, Se poy te Te Ty 
eee eo Orel ee oy a Opel Gy 
Wee. oe vee feo -2oy Zor Ob, 32, Say 
Pore od, So,-.56, 37, 36, 339, 40, 40, 41, 
Mea; 237-43, 43, 44,..44,- 44, 45, 45, 
See 4s; 429, 50, 50, 51, 54, 57, 60, 63, 
baer oO, oo 65, 66, 66,. 66, 67, 68, 69, 
Sere eee kL ie Gen Te Pog 7 Sy 
see 15 ne Se Oy I Sg VaR OF 4s 76, 16; 16; 
ceo oO, eU, (CO, “60; 61, 82, 82, 
Sos Oop eo Ope >, boy BS, 85, 85, 85, 
Bee oo Oe Oe oO) ee SO OP S278 O38, 
Peo AG ey, OG OO Oy) P55 + oy “SO <9 5 
oe, (See hoo, 29, 99, 00) 100%. 201; 
POs Oa Oa Oa One boo, 1095: 109, 109, 120; 
nO eee ee eo ee sk do ho, Lay 
ede ee a oe aoe bo, Lid. 21 123, 
eZ Oe see en eo he ee Ue ote) So 1355, 1355-059, 
Soe oo pee So oo. POS So 1 Soo 21465, 139, 


a3.) 


139, 
148, 
aia 
193, 
205, 
Zale 
224, 
2 2c" 
239, 
250, 
oe 
301, 
aay 
335, 
345, 
367, 


139, 
igaee 
nes 
194, 
205, 
Za 
226, 
229, 
241, 
25 i, 
Zale, 
3055 
344, 
336, 
345, 
36 })-s 


139, 
156, 
ey 
194, 
207, 
216, 
22Gr 
2297, 
243, 
252, 
Baas 
309, 
314, 
Sar, 
345, 


139, 
160, 
174, 
194, 
208, 
Zee 
22 
230, 
243, 
253, 
oy 
313, 
314, 
338, 
353, 


Loo; 
164, 
178, 
193; 
209, 
217, 
22a, 
234, 
ZAS5 
PAO 
Za 
Se, 
314, 
330) 
Sos, 


cic 
165, 
182, 
199, 
210, 
Palen 
Doge 
235, 
Daa, 
261, 
2e1) 
313, 
318, 
geo 
353, 


140, 
166, 
186, 
Z00r 
olalpls 
Zon 
228, 
236, 
Onde 
265, 
285, 
S13, 
B2C) 
340, 
354, 


142° 
166, 
190, 
201, 
ele, 
2207 
228, 
237, 
244, 
269, 
289, 
313) 
326, 
S42) 
354, 


144, 
166, 
P91 
202; 
Oia, 
oooF 
map 
238, 
248, 
269, 
293, 
cus 
S307 
343, 
358, 


146, 
G7, 
27 
204, 
Z13, 
224, 
228, 
236, 
249, 
Z70;, 
Ao 
oe; 
334, 
344, 
363, 


subtype Rule is Natural; 


subtype Nonterminal is Integer; 


Rule Length 
2, 
6, 
0, 
0, 


array 216) of Natural := 
O, 1, Il, 


O, 2, 


(Rule range 0 


™~ 
~ 
W 
~ 
= 


~ 
~ 
WwW 
~ 
oO 
= 
~ 


~ 
oO 
~ 
- 
(61) 
~ 
ds 
~ 


~ 
~ 


~ 
Oo 
~ 
= 
Oo 
~ 
W 
~~ 


~ 
~ 


~ 
oO 
~ 


~ 
~ 


~ 
oO 
~~ 
™ 
~ 
~ 
~ 
~ 


~ 
dS 
~ 
~ 
~ 
~~ 
~ 
~ 


N 


~~ 
~ 
~ 
~ 
“= 


~ 
ds 
~ 
W 
~ 

Oo OWrRr OWOO 
~ 


~ 
oO 
~ 
~= 
~ 
~ 
~ 


~ 
~ 
~ 
~ 
~ 
~ 


~= 
~= 
~= 
~ 
~ 
~ 
~ 
(ey (2) 
~ ~ 


~= 


~ 


~ ~ ~ ~ ™ ~ ~ ~ ~ ~ ~ 


~ 


fey Tey (63) TS) oy [er (ee) Tey (68) 168) te) fe} 103) [too sy () fe) fe) (e) fe) fe) fey i) fe 
~ 


~ ~ = ~ = 


~ 


~ ~ ™ ~ ~ ~ ~ 


~ 


jes fey fey (is) TS is) @) ib (| fers) fe) eS) @) @) & 
~ 


~ 


~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ 7 


CORrRPNFFrFWOrFRrRABROWOAN DAHA CAOrF YM AIWHO O| 
™= 


~ 


~ ~ ~ 


~ 


~ ~ ~ ~ ~ ~ ~ ~ ~ 


~ 


bB WOrRNFrrPWorraqaoodoodoxshsaoawodannnN oO oO 
~ 


~ ~ 
~ oOo? 


~ 
™~ 


~ 
~ 


~ 
~ 


~ 
~ 


~ 
™= 


~ 
™ 


~ 
~ 


~ 
~ 


~ 
~ 


fe) fe) Te LS (eee Tp eS Meer fon) (ee) fe) (2) fess fe) ley fe) fe) (a) (ive 
~~ of ~ 
~ os 


~= 
oy (ety les [a fey 1 [1 Ss) te) TS fe) () te) fe) [res te) pss fe) eS @&) fe 
~ 


~ 
ey =) te) (Sy) Wy fey 
~ 


(@} Fn 


~ ba) ba) ~ 


™= 


~ ~ ~ ~ 


Pb r FB Nh br OO WW DH 
~ 


~ 


~ 
Oo 
~ ~ ~ ~ o> 
~~ 


~ 


~ = ~ 


ey (Ss) [2 [3 te) [3 ss fe) fe) f& 
~™ 


~~ 


1, 
4, 
4, 


0, 0, 3); 

Get LHS Rule: array (Rule range 0 
=35 257977 49-45 0, - 0, —9y 
= 7107 = 167-125-125 - 18-1 se, 
—19,=20, =147-14,=22,=38, —217.-2 48 
—247-21,-20, -20, -25, -29,-25, —-S0) 
=31,-32,:-20,-3 4, =25) =25,-1 9 
—-38,.-39),-37, -411, -42, 13, —40, _40, 


~ 
~ 
~ 
~ 
oO 
~ 


216) of Nonterminal 


400 


-44,-35,-35, -26, -26, -15, -48, -45, 
-45,-46, -46, -47, -47, -49, -11,-50, 
-11,-52, -53, -51, -51, -54, -23,-56, 
=23,-61,—-55;, —-62,-5/, -63, -63;~-6/, 
-64,-64, -68, -65, -70, -72, -69, -69, 
-71,-71, -66, -66,-73, -58, -58, -74, 
oO ?¢ 1 oO 607-1 1,6, 04, —) oO, 

-85, -86, -83, -88, -83, -91, -83, -83, 

SS) Sir Se Sea OS 5S BO Re ie hs PLE 

-79, -79, -80, -80, -81, -81, -82, -82, 

SONGS =o 16 pre one (OPS: [Ob saci ote\ic] Mare Sari Gas 
os 5, 90, 20,25, 26, 95, -—22, 
-98,-100,-101, -98, -98, -103, -98, -98, 
mae OG 95/90 1-96-99 /-95,— 1102. 
=102,-102, -104, -104, -104, -104, -104,~-104, 
—-105, -105, -105, -106, -106, -106, -106,-36, 
=36, -—36, -36, -36, -107, -109, -108,-110, 
—-108,-87,-87,-87,-87,-87,-87,-87, 
oe a oe SK oe a 87, 
tS, —87,-116,-87, -117,-87,-118,-87, 
—-119,-87,-120, -87, -121, -87,-122,-87); 
enc esd l «Goto; 
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APPENDIX W. PACKAGE PSDL_SHIFT_REDUCE 


package Psdl Shift Reduce is 
type Small Integer is range —325000 — 2 es2ze0c0, 
type Shift Reduce Entry is record 
uy > omal Peiintege i; 
BGc. |; Smatieinceger, 
end record; 
pragma Pack(Shift Reduce Entry) ; 
subtype Row is Integer range -1 .. Integer’ Last; 


--pragma suppress (index check) ; 


type shift (Reduce Array 
iS array (Kow) range ;<-) Of shi teekcauec inex, 


shift Reduce Matrix =» constant Shift Reduce Array -— 


CS= 1) S Dummy Abney 
=[ es eat owen 
plo) 
== State . 1 
py) 
=—"State 2 


po 205s 1008) 4-1-1000) 


—-- state 3 

ms a4,7.—3) 7 ( Dao leg Ge ae 
-- state 4 

, C=), —1000) 

== Stace. 0 

pide, So) oS oe O08) 
eS tee re 

pee oO) 

ate elit 

Pe ae oe at 

—-- state 68 

, € SZ, Aaj = = 10005 

—— State oo 

pol Wir ee lee 

es) 

-- state 10 

p(y =4) 

——S Stace mee 

I ay aa 2) 

== state 12 


Po 


r ( 


r ( 


r ( 


r { 


tose) 


state 13 
alee) a OO 
state 14 


Sl a) (1, 1000) 


state 5 
Ce oh oS) 
state 16 


Sa. ola = 1 000) 


-- state 17 

ey, 23} 

-- state 18 

ees. 24) 000) 
-- state 19 

Fed ele 

-- state 20 


» 


r ( 


62,4 A= 1, -16) 
state eal 
ies 30) A Oo ete) 


pi-ai,—-1000) 
-- state 22 
my = 9) 

-- state 23 


r ( 
a 
r ( 


re 


Co, eo?) pute oy 2S) 
Brie Sot Op 
Sora) te lo) 
state 24 

ee 44), (oi) oO) 


-- state 25 
pe, 22) 

-- state 26 
we — 41.) 

-- state 27 
pay al) 

-~ state 28 
aly 20) 

—— state 29 
pio 49), (-1,—48) 
-—- state 30 


r 


Gee Se 15, = 1000) 


-- state 31 

pil, 64) 

-- state 32 

Pll 22, 04), (—l,=99) 
-- state 33 

pale 2.6) 

-- state 34 


3d, 


38), ( 


46, 


s5) 
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Pe a rss) 


=~ State 35 

pa = Op 

-- state 36 

Pe ol a) 2) 

-- state 3/7 

p= pes OD 

-- state 38 

Pa At esl re Gl Hh O0L), 
-- state 39 

pA ge). 

-- state 40 

; ¢ 2455963) 

Peel el bs, 8 1 O)(0)9)1 

-- state 41 

pA Gy ee oe 
-- state 42 

Py Ge 2 oo) 

Pe aad he) 

-- state 43 

,( 30, 68),4—17—-1000) 
-- state 44 

jp (Ge aee 2) 

, (=1,-1000) 

-- state 45 

pep 2) 

-- state 46 


,( 4, 71), (-1,-12) 


-- state 4/7 

a ee) 

-- state 48 

P62 Gs 3) 0-1, 1000) 
-- state 49 

pl aie 2) 

pA = digs) 

-- state 50 


pigs 6y S29) 7 S477) aes) 


-- state 51 

rae ae 7 TO) ladda = TO) 
-- state 52 

PS el al Pw 

-- state 53 
,(=1, = 62) 

-- state 54 

, OG oy —4, 1000; 
-- state 55 


r ( 14, BO}: (=1, 62) 


-- state 56 
pe ee cee 
-- state 57 
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Pie = 31) 


-- state 958 

pica, 41) 

-- state 59 

pia a1) 

-- state 60 

eee Ss) ta, 1 C00) 
-- state 61 


moo, Sih (-l, 1000) 


-- state 62 

momo 2 Fay, O00) 
-- state 63 
lye) 

-- state 64 

aoe; 7S} 
mal — 1 000) 

-- state 65 

ia aso) 

-- state 66 

mmooe «910 70(— 1,-1.0 00) 


-- state 6/7 

Pea p.- 91) (=, 28 ) 
-- state 68 

me, 1D) 

-- state 69 

moe S10) 


-- state 70 

Meee eo) a (= 17-1000) 
-- state 71 
pi—1,—41) 

-- state 72 

pay. 2S) 

me = 9 1 (a1, = 1000) 
-- state 73 

PA, OL) 

-- state 74 

pale 2, 99)) 

pi —1—1000) 

-- state 75 

mae. 2100), (-1,7—-1000) 
-- state 76 
lo) 


-- state 7/7 

p24 2102 jetty 1 000) 
-- state 78 

P(e a 103); (—-2,:- 60) 


-- state 79 
cay aS) 
-- state 80 


i ( 66, OS, (-1 


-- state 81 
pb a a0 


—-~— state 82 


71000) 


r ( 4, ey (Sly te 7) 


-- state 83 


pal 4, (Ae (=) =29) 


-- state 84 


pI 4, (lye fala oe) 


-- state 85 


r ( 4, Arg Goes so) 


—-- state 86 


r ( 4, OS) aC, =) 


—-- state 87 


pl 637) LOG, — |) 1900) 


-- state 88 


pee chen ry aby siisy) 


-- state 89 


r ( 4, 98 )G(-ly a2) 


-—- state 90 
,(-1,-93) 
-- state 91 
pi aes) 
-- state 92 


pil RSG. eles (= = 1 OOO) 


-- state 93 

Pe Oh. 7( Chomer alo) Aah 
-- state 94 

p26 4g oe 
-- state 95 

i eS) 

-- state 96 
phatase) 

-- state 97 

7; (ails oS) 

-- state 98 
ee) 

-- state 99 
fia a OD) 


-- state 100 


i ( 62, 119), iia 


-- state 101 
Pies as) IL) 


-- state 102 
, Valea G2) 
-- state Crs 


p=82) 


pr co0) 


, aL o0G) 
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Pal — 65) 
—-- state 104 
mea 2121) (1g HT O00) 


-— state 105 
i 60 ) 

-- state 106 

pie 3 4 122) 4: (— 1) 1000) 
-- state 107 

oly Le7) 

miso, 123), 40, 126), ( al, 124), ( 30, aS 
pal, —-L000) 

-- state 108 

miei, 181) 

-- state 109 

pig 58) 

-- state 110 

A, = 41) 


-- state 111 
mimo. 15) 4.(-1,-4000) 
-- state 112 
mae, 630) (— 1 77-1 000) 


-- state 113 

fia 4) 

-- state 114 

fee 3 32) 47(-1, 7 7) 
-- state 115 

moe, 133) 

fe LOO) 

-- state 116 

paige iL) 

-- state 117 

Oe ye oo) 11000) 


--— state 118 

mero 2156), (-1, —1000) 
-- state 119 

tsi: —18) 

-—- state 120 

pea, |) Lt) 

pest, = 58) 

-- state 121 

eet pa Loe ot, — 1 000) 
-- state 122 

pit 34) 


-- state 123 
ial sh 76) 
—— state 124 
ee gr} 
-- state 125 
, (-1,-178) 
-—- state 126 


407 


pL, 179) 


-—- state 12/7 

; C= = 120) 

-- state 128 

, ( 4, A a a ea 
-- state 129 

r ( 4, 98) 

plats 77) 

-- state 130 

N= ae 

-- state 131 
pee 5.4) ea Oe) 


-- state 132 

p62, 143) .(- 1,1 000) 
-- state 133 

7A, 83) 

-- state 134 

pi dy 145) 

p Glee) 

-- state 135 

Me ep eS 

-- state 136 

, (= 150) 

-- state 13/7 

pCO Wee) 

, (= 2O0Go) 

-- state 138 

pi C bae) ya le LON 
-- state 139 

p= =O) 


-—- state 140 

piel ale) 

-- state 141 

pe AS) a IG) 
-- state 142 

p= lee) 


== state 143 

; ta 80) 

-- state 144 

r ( Type S Jor | 10, =88) 77( 19, -S2) 

a 2 Be yor Page Was! 2)0)) ame Seer yak 60,-=88) 
p l= =s>) 

-—- state 145 

Pech. ole) 5 | Sab Saovonie) 

—— Stave wa 6 

i= ip) 


-- state 147 
Pe Gee te /) 
-- state 148 
pole ee) 
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state 149 
pee Sie 4 ye (= Ly = 1 O00) 


r 


state 150 

240 Se AIS Jn ee Goad Wee 5 

-- state 151 

phase, 16s) 7 -( 

ee io oy 

mere 4 = 163) 

puleco a) lei 2) 
state 1 

445.173) 


160) 
( 43, 171), ( 
(3655 164) 
(=1 7-100 0) 
2 


i 
G2, 
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f 


pl , (-1,-100) 
-- state ale 

m2, 174) 24-1) = 1 000) 
state 154 

le SD a ee) 
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APPENDIX X. PACKAGE PSDL_TOKENS 


Ween scl Concrete [ype Pkg; 
use Boal Concreve lype Pho; 
Peckage Psd! Tokens is 


type TOKEN CATEGORY TYPE is (INTEGER_LITERAL, 
PSDL ID STRING, 
EXPRESSION STRING, 
TYPE NAME STRING, 
TYPE DECLARATION STRING, 
TIME STRING, 
TIMER _OP_ ID STRING, 


NO VALUE); 
eYype TYoGype ileken Category = TOKEN CATEGORY TYPE := NO VALUE) is 
hecora 


case Token Category is 
when INTEGER LITERAL => 
Integer Value : INTEGER; 


when PSDL ID STRING => 
Psooleiatvalue (SP sal ia; 


when TYPE NAMELY STRING => 
Type Name Value : Type Name; 


When iPE UECLARATION STRING => 
Ryeenevectarariton' Valves: Type Declaration; 


when EXPRESSION STRING => 
Expression Value ££ Expression; 


wien  TLME STRING -=> 
Dimenvarua = sMit la sec; 


when TIMER OP ID STRING => 
fimer Op id Value «Timer Op. id; 


when NO VALUE => 
White serpece = Text «= Empty Text; 
end case; 
ena record: 


Yr vad 11 Val > 2S) ype; 

type Token is 
fone Or Inpue, ~brror, *~{ 7 2)" 5 
atv eee de 


.we x 
. f 


, ‘ te 
f i 


42] 


Arrow, True, False, 
Ada Token, Axioms Token, By All Token, 


By Req Token, By Some Token, Gall Pervcagloken, 


Control Token, Constraints Token, Data _ Token, 


Description Token, Edge Token, End Token, 


Exceptions Token, Exception Token, Execution Token, 


Finish Token, Generic Token, Graph_ Token, 


Hours Token, If Token, Implementation Token, 


Initially Token, Input Token, Keywords Token, 


Maximum Token, Minimum Token, Microsec Token, 


Min Token, Ms Token, Mod Token, 
Not Token, Operator Token, Cr leken, 


Output Token, Period Token, fesetmioken, 


Response Token, Sec Token, Specification Token, 


start Token, States Token, Stopytoken, 
stream Token, Time jicken,) “limer sloke, 


Triggered Token, Type Token, Vertex Token, 
Within Token, Identiftiver, integer (biterail 
Real Literal, Seringeutcteral,. texeneckwcn, 
And Token, Xor Token, ) lbeqicalvopercran, 


ieee bee oar ‘=’, 


Greater Than Or Equal, Lessi than or Bama, 


4) f 


Relational Operaror, Sale = 


Inequality, 


“&", Binary Adding Operator, Unary Adding Operator, 


‘“*1, */*, Rem Token, 


Multiplying Operator, Exp Token, Abs Token, 


Highest Precedence (Opecrabonrs)., 
Syntax Error = Sexcept lon, 


end esdlv tokens, 
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